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© Control system for a sample preparation system. 

© There is disclosed herein a system for control- 
ling an electromechanical system comprised of a 
number of electromechanical devices (e.g., 30, 32, 
34, 36, 38, 40, etc.) such as solenoid operated 
valves, motor, relays and other devices. The control 
system is comprised of a central processing unit 
(20) and control software plus suitable interface cir- 
cuitry to convert the digital data from the central 
processing unit into suitable control signals to op- 
erate the electromechanical devices. The control 
software allows users to either select preprogram- 
^ med sequences of commands to be executed by the 
^computer or to program unique sequence at either of 
two levels of complexity. User access privileges may 
{^defined by the system manager such that certain 
CO users may not be allowed to program their own 
^sequences, while other users may be allowed to 
j*^ program their own sequences only on the first level 
(Nof complexity but not the second, while a third group 
QOf users may be allowed to program on either of the 
programming levels or to run the preprogrammed 
^sequence as defined by the system manager. The 
two levels of programming complexity are a high 
level and an expert level where the command set on 



the high level consists of a plurality of commands 
each of which represents a macro. A macro is a 
collection of more detailed commands from the ex- 
pert level each of which represents a single opera- 
tion to be performed or a very small group of oper- 
ations by the electromechanical devices being con- 
trolled. Collections of these commands from the 
expert level are then put together in prearranged 
sequences to define predetermined functions of the 
system which may be performed by the single high 
level command representing that macro. The com- 
mand set on the expert level is therefore comprised 
of commands which define single operation such as 
valve openings and closures or relay openings or 
closures or the turning on of a motor or the turning 
off of a motor. 
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CONTROL SYSTEM FOR A SAMPLE PREPARATION SYSTEM 



Background of the invention 

5 The invention pertains to the field of sample 

preparation systems, and more particularly, to the 
field of control systems for automated sample 
preparation systems. 

In many industrial production facilities and lab- 
oratories, there is a need to assay sample chemi- 
, cals being prepared, analyzed or otherwise pro- 

cessed. Such samples can come in many different 
forms. For example, they may be solid, liquid, two 
phase liquid or liquid-solid, and may or may not be 
highly viscous. Many types of assay systems re- 
quire liquid samples of known viscosity and con- 
centration. An example would be a liquid 
chromatography system. 

Obviously, there is a need for systems which 
can prepare many different types of samples for 
assay by such machines. Preferably such systems 
are automatic in the sense that after the user 
defines the type of sample preparation needed, the 
system automatically carries out this processing on 
samples until told to stop or until the sample prep- 
aration runs out of samples. 

Because of the many different types of sample 
formats and because of the many different types of 
sample preparation processes which exist for var- 
ious types of assays, there is a need for flexibility 
and programmability in a control system for an 
automated sample preparation system. The user 
must be provided the facility with which the particu- 
lar types of samples he or she intends to process 
may be prepared in a process for which the steps 
and sequence of steps are defined by the user. In 
this way the user can tailor the automatic sample 
preparation system for use in the environment pe- 
culiar to that particular user. 

Prior art automatic sample preparation systems 
exist in the form of robots. One particular type of 
robot of which- the applicants are aware is a robot 
manufactured by Zymark. These robots may be 
programmed to emulate all the movements a hu- 
man being would make in doing a sample prepara- 
tion process manually. Unfortunately, such systems 
are complicated and expensive and difficult to use 
because of the complexity of the mechanical ma- 
chinery and control computers and software need- 
ed. Thus, a need has arisen for a control system 
for a sample preparation system which is flexible, 
programmable, easy to use, and relatively inexpen- 
sive to manufacture. 



Summary of the Invention 

In accordance with the teachings of the invent 
tion, there is provided a control system for a sam- 

s pie prepara tion system to fully automate the sys- 
tem and allow users to program their own sample 
preparation procedures or to use preprogrammed 
procedures. Further, the control system allows a 
user acting as a system manager to define the 

to necessary sample preparation procedures for var- 
ious types of samples likely to be encountered. 
Then the system manager may lock out users 
without system manager privileges to prevent them 
from altering the procedures while allowing such 

75 users to use the procedures programmed for them 
by the system manager. 

The control system of the invention allows user 
interaction with the system at three levels. At the 
first level, users may only give the sample iden- 

20 tification (in embodiments with no bar code read- 
er), the sample weight, the user initials, the date 
and time, the lot number to run, and the method of 
sample preparation to be followed. These methods 
of sample preparation will have been programmed 

25 into nonvolatile memory before the control system 
is obtained by the user or will have been previously 
programmed in by the system manager. 

The next level of user interaction is a high level 
language level. At this level, the user has various 

30 high level sample preparation system control com- 
mands at his disposal. Such commands include fill, 
mix, isolate, flush, dilute, inject, wash. etc. Each of 
these commands represents a predetermined se- 
quence of events which will be caused by the 

35 control system to happen in the sample preparation 
system when the particular command is executed 
in the course of performing a sample preparation 
procedure. The user at this level may string a 
series of such high level commands together into a 

40 sample preparation procedure and give it a name. 
Upon selection of a high level command, the con- 
trol system would prompt the programmer for any 
necessary variables or parameters, such as solvent 
selection, volumes, flow rates, mixing times, etc. 

45 Thereafter, by identifying the particular procedure 
the user wishes to "run, the same sequences of 
events may be caused to occur in the sample 
preparation system of the invention. Some of the 
high level commands have parameters which are 

so accessible to the user and may be set to accom- 
modate the particular needs of the user. These 
parameters allow the user to control, for example, 
the amount of time a mixing step is carried out and 
the level of energy that is input to the mixer by the 
homogenizer. ' : * • 
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The key to breaking up sample preparation 
procedures into a series of standard preparation 
steps, which can be chained or re-chained together 
in any useful sequence the user needs to accom- 
plish his desired sample preparation procedure, is 5 
to design the hardware and software control logic 
to allow each standard preparation step and each 
programmed series od standard preparation steps 
to be completely independent of the preceding or 
following step or series of steps. For example, w 
upon completion of a dilution sequence or cup 
wash cycle, the diluent or wash solvent from a prior 
dilution or rinse should not be left in the instrument 
connecting tubings or modules. If there is such 
leftover solvent etc, it may inadvertently contami- is 
nate the next dilution or wash with the wrong or an 
undesired solvent If this undesired solvent could 
not be removed from ail tubings and connections 
prior to the next step or sequence of steps, the 
next step would be restricted to using a solvent 20 
(j eeme( j compatable with the undesired solvent and 
thereby place undesired restrictions on the next 
step. 

At the most detailed level, the control system 
according to the invention provides the user access 25 
to and programmability for elemental operations of 
the type that are combined into the sequences 
which make up each high level command. Such 
elemental operations control individual events in 
the system such as the opening and closing of a 30 
particular valve, the turning on of the homogenizer, 
setjing of the power level of the homogenizer, etc. 
The user may program the system at this level by 
stringing names. These sequences may be thought 
of as user definable high level commands, or 35 
"macros." The user may string any number of 
macros together to form a procedure which may 
then be labelled and executed by referring to it by 
its name. 



Brief Descrfption of the Drawings 

Figure 1 is block diagram of the hardware of 
the control system and the system electromechan- 45 
ical devices which are read and controlled by the 
control system. 

Figure 2 is a schematic diagram of a typical 
sample preparation system which may be con- 
trolled by the control system of the invention.. so 

Figure 3 is a schematic diagram of another 
embodiment of a sample preparation system which , 
may be controlled using the control system of the 
invention. 

Figure 4 is a flow diagram of the overall ss 
control flow of the control system software. 

Figure 5 is a flow diagram of the. ^various 
routines of the control system of the invention. , : . ,. t 



Figure 6 is a flow diagram of the create, 
modify and delete routine of the control system of 
the invention that the allows a user to create new 
sequences of commands at either of two levels of 
detail and complexity. 



Detailed Description of the Preferred Embodiment £ 

Figure 1 is a . block diagram of the electronics 
of the control system in accordance with the teach- 
ings of the invention. The control system is cen- 
tered around a CPU 20 which could be a micropro- 
cessor, personal computer, minicomputer, or main- « 
frame. Included within the CPU block is RAM 
memory for storing programs and data while the 
computer is running; Mass storage of data, pro- 
grams, and other information such as data bases, 
macros, user defined parameters, user defined 
sample processing routines, etc., is performed by 
mass storage unit 22. This unit could be a disk 
drive, tape transport, bubble memory, or any other 
bulk storage device with sufficient access speed 
and stor age capacity for the particular application 
involved. The user controls the computer 20 
through a terminal comprised of keyboard 24 and 
any type of display 26. 

The computer 20 is coupled to the various 
operating units in the sample preparation system 
by bus 28. This bus 28 is actually comprised of the 
address, data, and control signal lines of the com- 
puter 20. The bus is coupled to the ports for 
addresses, data, and control signals such as 
read/write, interrupt, ready, etc. on the various dri- 
vers and interfaces to the various functional ele- 
ments of the system. A more complete description 
of the sample preparation system for which the 
control system is intended to be used with is given 
in the following U.S. patent applications: 
"System for Preparation of Samples for Analysis" 
by Nau. Metzger, Orimm, Nohl/ serial number 
942,197, filed 12/16/86. and "Sample Preparation f 
Chamber with Mixer/Grinder and Sample Aliquot 
Isolation" by Nau. Metzger,', Grimm, Andre, and 
Nohl. serial number 942,198. filed 12/1 6/86, both of 3 
which are hereby incorporated by reference. . 

Because the sample preparation system is in- 
tended for . use in applications where either the 
samples will be brought into' the system in cups or 
other containers with bar codes thereon or pumped 
into the cup through a 6-way valve, a bar code 
reader 30 is provided. This allows sample iden- 
tification data such as lot number and batch num- 
ber or other types of information pertaining to the 
incoming samples to be read from bar codes on 
the sample containers. This information may then 
be read by the computer 20 and stored in the 
mass storage unit 22 for later correlation with the 
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test results for that group of samples. Bar code 
readers are known and systems for moving sample 
containers by bar code readers so that the bar 
codes may be read are also known. 

In the preferred embodiment, a network inter- 
face controller 32 is provided to allow other com- 
puters and units on a network in the user facility 
such as terminals in the offices of scientists to 
offices, program the system or inquire as to the 
status of a* particular sample preparation routine. 
Further, the users may have access to the data 
which resulted from a particular sample run. For 
the network interface, this user can have the sam- 
ple data resulting from the assay of a particular lot 
of sample communicated directly into the data 
based in the other computer. 

A sample loader 34 functions to mechanically 
load samples arriving in containers. The particular 
design of the sample loader is not critical to the 
invention. It may load sample from one or more 
containers brought in by the user such as a tray of 
test tubes into the sample preparation chamber. In 
such a system, the sample from each test tube 
would be loaded into the sample preparation cham- 
ber, homogenized, diluted, and pumped through 
the assay system. At some point in the process, 
the sample would be identified either by the user 
keying in the identification data or by the bar code 
reader 30 reading the bar code on the test tube. 
Th analysis data from the assay would then be 
stored in the mass storage unit 22 along with the 
corresponding identification data. The sample load- 
r would then load the sample from the next test 
tube into the sample preparation chamber, and the 
process would be completed for the sample from 
the next text tube. The design of such a sample 
loader is known and a commercially available unit 
which could be programmed to do the job would 
be the PRO/GROUP(tm) automatic assay machine 
available from Cetus Corporation in Emeryville. 
California. In alternative embodiments, the sample . 
loader 34 could be any mechanical system which 
could take a cup like that used in the sample 
preparation chamber described in* the patent ap- 
plications incorporated by reference and attach it to 
the cap. Any mechanical arrangement that can load 
a copy from a tray, conveyor belt, or carousel of 
cups into mechanical, sealing engagement with the 
cap of the sample preparation chamber described 
in the patent applications incorporated by reference 
will suffice. In some embodiments, this unit may be 
omitted altogether where sample is pumped in 
from a process stream or injected from a 6-way 
valve coupled to a sample vat. The design of 
suitable sample loaders which will suffice to prac- 
tice this aspect of the invention is known. 

There is also provided electronic scales 36 in 
the preferred embodiment. These provide the fa- 



cility for weighing of solid samples or samples 
which are too viscous to pump into the sample 
preparation chamber where such samples are 
placed manually in the sample preparation cham- 
s ber. The purpose of weighing such samples is to 
provide the user with an indication of the amount of 
sample that has been placed in the sample prep- 
aration chamber. This is important because the 
samples will later be diluted with solvents or diluent 

10 to a user defined concentration. In order to do this 
properly, the weight of sample in the sample prep- 
aration chamber prior to addition of the diluent 
must be known. The electronic scales also provide 
an RS232 or parallel interface to the computer 20 

75 via the bus 28 so that the computer 20 may read 
the sample weight directly. The electronic scales 
may be eliminated in some embodiments. Without 
the electronic scales, if the user is dealing with a 
solid sample, the weight of sample placed in the 

20 sample preparation chamber must be keyed in by 
the user through the keyboard 24. A suitable elec- 
tronic scale 36 would be the Mettler AE160 avail- 
able from Mettler in Switzerland. 

A pump interface 38 provides the facility for 

25 the computer 20 to control the reversible pump 
used in the sample preparation chamber. The 
pump motor may be a stepper motor or a D.C. 
servo motor with an optical or other type of en- 
coder so that the pump interface circuit 38 can 

30 determine the position of the motor shaft at all" 
times. Any type of motor with sufficient power and' 
a system to positively control the pump shaft posi- 
tion or otherwise control the exact volume pumped 
will suffice. The pump interface obviously needs to 

35 be designed to interface between the particular 
type of pump motor and pump chosen and the 
particular type of computer 20 chosen. 

Figure 2 shows one embodiment of a sample 
preparation system with which the control system 

40 of the invention may be used. In this embodiment 
of the sample preparation system, the details of the 
structure and operation of which are as described 
in "the patent applications incorporated herein by 
reference, two manifolds 39 and 41 are used as 

45 central terminals in what amounts to a fluid switch- 
. ing multiplexer. Each manifold is coupled to various 
sources of material or various destinations in the 
system by a plurality of remotely controllable 
valves of which valves 43 and 45 are typical. These 

50 valves are typically solenoid operated or pneumati- 
cally operated ..under the control of the computer 
20. The purpose of the valve interface 40 in Figure 
■'• 1 is to electrically translate the address, data, and 
control signals on the bus 28 into the proper elec- 

55 trical or pneumatic control signals to cause the 
proper valve in the system to assume the proper 
state. Such interface circuits are well known for 
•■' either solenoid operated valves or pneumatically 
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operated valves. For example, in the case of sole- 
noid operated valves, a motor controller chip can 
decode the address on the bus 28 and a data word 
indicating whether the valve is to be opened or 
closed along with an active write signal. All these 
signals define an action desired for a particular 
valve. The address specifies which valve is to be 
operated, and the active write signal indicates when 
the computer 20 is addressing a particular valve. 
The data word defines whether the valve is to be 
opened or closed or which of its multiple states to 
assume in the case of a multistate valve. 

The motor controller chip then activates a par- 
ticular output signal line coupled to a solenoid 
driver such as a relay or a triac in such a manner 
as to cause the desired change in the state of the 
addressed valve. 

In the case of pneumatic valves, the address, 
data and control signals are decoded, as above, 
but the activated output signal from the motor 
controller chip is used to control a pneumatic pres- 
sure source to either apply pneumatic pressure or 
remove it from the particular valve addressed. 

Figure 3 shows the preferred embodiment of 
the sample preparation system with which the con- 
trol system in accordance with the teachings of the 
invention is used. The difference between this sam- 
ple preparation system and the sample preparation 
system of Figure 2 is that the manifolds 39 and 41 
and the associated valves such as valves 43 and 
45 are replaced with two rotary, multistate valves 
47 and 49. All other details of the system structure 
and operation are as described in the patent ap- 
plications incorporated by reference herein. Each 
of these valves has a central input pipe, pipes 51 : 
and 53 respectively, which is~ connected to only 
one of a plural ity of output ports coupled to 
various sources of material or destinations in the 
system. A stepper motor or D.C. servo motor with 
optical encoder is used to drive the valve to its 
various states. In.: such* an -embodiments the valve 
drivers 40 are the interface circuits needed to con- 
trol the stepper motors or D.C. servo motors. 

Integrated circuits for stepper motor control are . 
commonly available. These circuits allow the com- 
puter 20 to send address and data words to the 
stepper motor controllers after enabling the chip 
with a proper chip^select signal. The address sig- 
nals indicate which of the two rotary valves is being 
addressed, and the data words indicate the desired 
state in which the rotary - valve is to : be .placed. 
Typically, these integrated stepper motor control- 
lers have a command set. Typical commands. in- 
clude commands to start and stop the controlled 
motor, commands to control the acceleration and 
deceleration profiles to use, commands to control 
the step number to which the controlled motor's 
shaft is to be moved, and. commands to read the: 



particular step at which the controlled motor's shaft 
is currently resident. Such chips may be used to 
control the stepper motors used to drive the rotary 
valves 47 and 49. In the preferred embodiment of 
s the sample preparation system, these rotary valves 
47 and 49 are manufactured by Hamilton Company 
of Reno, Nevada. 

A typical D.C. servo motor which could be 
used to drive the rotary valves 47 and 49 is manu- 
re factured by.Galil Motion Control. Inc. of Mountain 
View, California under the model designation DMC 
100. These servo motors have optical encoders 
which are used to provide feedback as to the shaft 
position to an interface board for the Galil motor 
is plus motor controller chips for the other remotely 
controlled valves in the system. 

The RS232 port interface 42 may be a simple 
commercially available UART. The analyzer 48 
may be coupled to the computer 20 through the 
20 RS232 interface 42, or the network interface 32. 

The mixer 55 in Figures 1 and 2 may be an 
ultrasonic mixer such as is made by Sonic and 
Materials of Danbury, Connecticut under the trade- 
mark VI BRA CELL, in alternative embodiments, a 
25 high speed homogenizer could be used such as 
are made by Brinkman (shroud with a high speed 
rotating shaft therein rotating at 28,000 RPM, there- 
by creating a high shear in the liquid and disinte- 
grating particles therein). These units come with 
30 their own .interfaces . which may be used for the 
mixer interface 44. The basic control functions 
needed to control the mixer are the time of mixing 
and the power level , which controls the amount of 
turbulence generated in the liquid. The mixer inter- 
ns face will be necessary electronics to interface with 
the mixer control circuit for the selected mixer. The 
details of how to interface the computer 20 to the 
interface circuits that come with the mixers will be 
apparent to those skilled in the art. A good refer- 
40 : ence for interfacing computers such as the com- 
puter 20 to control external, instrumentalities is 
Libes and Garetz, Interfac ing S-100/IEEE:696 
Microcomputers, (Osborne.- McGraw.. Hill. 1981) 
which is hereby incorporated by reference. An aux- 
45 iliary interface 46 is provided to allow the computer 
20 to control external instrumentalities such as . 
valves, solenoids, etc. which are outside the sam- 
ple preparation system. Typically, this interface will 
be digital, programmable ports such as are corn- 
so monly available in integrated circuit form where the 
characteristics of the ports may be set by the user. 

Figure 4 is a high level, functional diagram, of 
the control program in the computer 20; which 
allows users to program and run their own , se- 
55 quences of events to be performed in the sample : 
preparation system under . control by the control 
system of the invention. The control program runs 
the usen defined sequences by generating ■■_ the 
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proper control signals to cause the desired se- 
quence of events to occur in said sample prepara- 
tion system. 

At power up in some embodiments, the system 
will perform a self test to verify the integrity of the 
system prior to performing any operations. This is 
symbolized by block 50. Next, the system displays 
a user identification request/sample identification 
request screen as symbolized by block 52 
(hereafter references to blocks will be understood 
to mean reference to those source code computer 
instructions organized as routines and subroutines 
in the control program which perform the function 
indicated in the block referred to). The purpose of 
block 52 is to supply query fields on the terminal 
or display 26 for the user to respond to by filling in 
the requested data via the keyboard 24. The re- 
quested data is to identify the user, to give various 
data items regarding the sample, to give the date 
and the time and to identify the sequence the user 
desires to run. The data items regarding the sam- 
ple to be filled in may include the sample ID, the 
sample weight, and the lot number from which the 
sample came. The user identification number is 
used by the control system to determine the ac- 
cess privileges which the user has. 

The control system has three levels of access. 
At the simple level, the user may only run se- 
quences that have been previously programmed by 
the system manager. At the high level, users hav- 
ing access privileges at this level may program 
their own sequences of events using commands 
from a high level language command set. These 
commands represent predetermined building block 
functions which are necessary to perform sample 
preparation. Such building block functions include: 
mix, isolate known sample volume, flush the re- 
maining liquid out of the sample preparation cham- 
ber, release the isolated sample volume, dilute the 
sample volume with a user defined volume of a 
user identified solvent, pump the diluted sample to 
the analyzer, etc. At the expert level, users having 
access to this level may program their own 
"macros" using system commands at a more de- 
tailed level than the high level commands identified 
above. These more detailed commands allow the 
user to control the system at a finer level of resolu- 
tion. For example, a typical command may be 
"open valve #1 " or "rotate multiport valve #2 to 
state #3." Each of the high level commands is 
comprised of a predetermined sequence of expert 
level commands. 

The identification data entered by the user in 
block 52 via the keyboard 24 is stored on the mass 
storage device 22 in block 54. Next the system, in 
block 56, determines the access privileges of the 
user by comparing the user ID to the list of ID 
numbers supplied by th system manager for each 



level of access. 

Block 58 represents the step of displaying an 
option menu by which the user, by selecting an 
option, may express a request regarding what the 

5 user wishes the system to do or what the user 
desires to do with the system. Typical menu op* 
tions include: start, status, method, directory, re- 
port, load, print, system, control, defaults, functions, 
and options. The meaning of these options will be 

70 explained more below. 

After the user has entered his or her request 
via the keyboard 24, the control system verifies 
that the user has the access privilege necessary to 
perform the function requested in block 60. If so, 

75 the control system branches to the routine which 
performs the desired function or provides the fa- 
cility requested by the user in block 62. If the user 
does not have the required access privilege, a 
message to that effect is displayed in block 64, and 

20 processing proceeds to block 58. 

Referring to Figure 5 there shown a How chart 
of the various routines which are available for se- 
lection by the user in Step 58 of Figure 4. The first 
routine, symbolized by block 64, is a routine which 

25 allows the user to create, modify, or delete an 
operation sequence. An operation sequence is a 
collection of commands which are executed by the 
central processing unit in order to generate control 
signals to control the electromechanical devices in 

30 the system. The control signals cause them to 
perform a physical sequence of events to process 
a sample where the sequence is defined by the 
particular sequence of commands in the program. 
The routine of block 64 allows the user to program 

35 his own sequences of commands at either of two 
levels of complexity. At a first level of complexity, 
the user may have access to a set of commands 
each of which represents a specified function that 
the system is capable of performing and each of 

40 which causes a predetermined sequence of events 
to occur in the proper order to cause the physical 
event symbolized by that command. The second 
level of complexity allows the user to have access 
to a set of commands which are very detailed. 

45 These commands each represent a single action or 
a very small group of actions that one or a very 
small group of electromechanical devices performs. 
Essentially, the commands at this second level are 
the component commands which are grouped to- 

so gether in a predetermined sequence to implement 
one of the commands on the. first level. Essentially 
then, the commands on the first level are macros 
which are collections of commands on the second 
level but arranged in a predetermined sequence for 

55 each particular command on the first level. 

Block 66 is a routine which allows the user to 
print a hard copy of a sequence which has been 
programmed by the user. 
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Block 68 is a routine which allows the user to 
load a predetermined sequence, i.e., a method of 
sample preparation which has been preprogram- 
med by the system manager. The system manager 
is a user which has access to all functions of the 
system. That is, the system manager can define 
th access privileges of ail the other users on the 
system, and he may program preprogrammed se- 
quences which are available for certain users who 
are not allowed to program their own sequences. 
Block 68 is the routine which the user calls when 
one of these preprogrammed sequences is to be 
loaded. 

Block 70 is a routine which allows the user to 
print a directory of all the methods or sequences 
which are stored in the system and available for 
execution. Block 72 represents a routine which 
allows the user to start the selected sample prep- 
aration routine and which causes the CPU to begin 
generating the control signals which cause the 
physical actions to occur. 

Block 74 represents a routine which displays 
the system status. Block 76 is a routine which 
allows the user to print the system status which is 
displayed in the routine of Block 74. 

Block 78 is a routine which allows the user to 
change the system default parameters. Typically, 
each command on either the first or second pro- 
gramming level will have parameters or arguments 
associated therewith. These arguments are variable 
values which define the specific manner in which 
the command is to be performed. For example, a 
mix command may have as an argument the power 
level at which the mix is to be performed, the time 
duration of the mix, and the RPM that the mixer is 
to use. 

The routine represented by block 80 allows the 
user to have access to the various valve and relay 
controls such that the user may open certain valves 
or close certain relays manually by causing the 
CPU to generate the proper command to cause the 
proper operation of the valve, relay or other elec- 
tromechanical device. 

Block 82 represents a routine which allows the 
system manager to create new system functions. 

Block 84 is a routine which allows the user to 
print a report. Such reports may consist of reports 
of user activity, the sequences which have been 
run, the volume of activity for a particular se- 
quence, and so on. Block 86 is a routine which 
allows the user to change the print parameters. 
This routine allows the format of the report to be 
set such as margins, spacing, headers, and other 
types of formatting commands common to 
database report routines. 

Block 88 is a routine which displays for the 
user the system options which have been elected 
and which are operable. 



Block 90 is a routine which allows the user to 
use the print mode of the system for various func- 
tions. 

Block 92 is a routine which allows the system 

5 manager access to certain system functions. 

Referring to Figure 6 there is shown a more 
detailed flow diagram of the create, modify and 
delete routine of block 67 in Figure 5. The first step 
when the user elects to program his own sequence 

io is to inquire whether the user wishes to program on 
the first level or on the second level noted above. 
- The first level will be called the high level for 
purposes here, and this level will provide the user 
access to the macro commands. The second level 

75 will be called the expert level and grants the user 
access to the detailed commands which essentially 
allow the user to define each valve opening and 
closing and each operation of each motor or other 
electromechanical device individually. The levels 

20 are named the high level and the expert level for 
purposes of indicating the relative amounts of skill 
needed to program on these levels. Programming 
at the high level is similar to calling subroutines or 
macros on any computer. Programming on the 

25 ' expert level is similar to programming in source 
code and requires a some programming skill and a 
great deal of knowledge regarding the hardware 
aspects of the system being programmed. 

The process of determining which level the 

30 user wishes to have access to is symbolized by 
step 94. This step also determines the user's ac- 
cess privilege by checking the user's identification 
code and comparing it to a table or other such 
database defined by the system manager which 

35 indicates which users have access to the high level 
command set and which users have access to the 
expert level programming command set. If the user 
elects to program at the high level, the next step is 
symbolized by block 100. In this step, the user is 

40 prompted for a name for the sequence which he is 
about to program. After the sequence has been 
named, step 102 is performed wherein the user 
selects the first high level command which is to be 
executed in the sequence. In some embodiments, 

45 the list of high level commands from which the 
user may choose may be displayed and the user 
may simply choose a command by positioning the 
cursor on the proper command and pressing a 
select key. In other embodiments, the user may be 

so required to know the high level commands and 
select the particular command desired by an acro- 
nym. 

As noted above, most commands hav certain 
parameters or arguments. Step 1 04 represents the 
55 process of prompting the user for parameter values 
for the command selected in step 102. Each com- 
■-■ mand will have default parameters which are set by 
the user in step 78 of Figure 5. If the user wishes 
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to use the default parameters, he need do nothing 
in step 104. If however, the user wishes to define 
the specific manner in which the particular com- 
mand is to be executed, then the parameters for 
that command may be adjusted in step 104. s 

After step 104 .is performed, the control soft- 
ware causes the central processing unit to prompt 
the user to determine if the command just defined 
is the last command in the sequence. This step is 
symbolized by block 106 in Figure 6. If the user is w 
done picking commands, the processing proceeds 
to step 108 where the method is stored in perma- 
nent storage such as on a floppy disk or hard disk. 
Processing then returns to the main menu symbol- 
ized by block 58 in Figure 4. /5 

If the user is not finished programming, then 
processing proceeds from block 106 to block 110 
where the user is prompted to select the next high 
level command in the sequence. Processing then 
proceeds to block 112 where the parameters for 20 
the command selected in block 110 are displayed 
and the user is prompted for new values for these 
parameters. If the user responds with new param- 
eters, these are stored with the command as a 
permanent part of the sequence being pro- 25 
grammed. After step 112 is performed, step 114 is 
performed to again to test for completion of pro- 
gramming. Step 114 represents the process of 
prompting the user to determine if the user is done 
programming. If he is, then processing continues at 30 
step 108 as described above to store the method. 
If the user is not done programming as determined 
in step 114, then processing returns to step 110 
where the user is prompted to select the next 
command in the sequence. 35 

Returning again for a moment to step 94 in 
Figure 6, if the user is determined to have no 
access to either the high level or expert level 
programming command sets, then step 94 vectors 
processing to a step 96 wherein a "no access 40 
privilege for selected level" message is displayed 
on the terminal. Thereafter, in step 98, processing 
is returned to the main menu of step 58 in Figure 
4. 

If the user selects the expert level for program- 45 
ming, a similar sequence of events occurs starting 
with step 116. There the user is prompted to name * 
the sequence he is about to define. The next step, 
118, prompts the user to select the first expert 
level command to be executed in the sequence. so 
Then, in step 120. the user is prompted to select 
new parameters for the expert level command se- 
lected in step 118. Again, the expert level com- 
mands also have default values which may be 
altered by the user in step 120. Step 122 repre- 55 
sents a test to determine if programming has been 
completed. If it has, then step 108 is performed as 
described above. If programming is not completed, 



processing proceeds to step 124. There the user is 
prompted to select the next expert level command 
and define the parameters for that command. 

Step 126 represents a test to determine wheth- 
er the user is done programming. If he is. then step 
108 is performed and control is returned to the 
main menu. If the user is not done programming, 
then control returns to step 124 where the user is 
prompted to select the next expert level command. 

Appendix A is a listing of the source code for 
the preferred embodiment of the invention. This 
source code runs on an IBM PC running the Forth 
and DOS programs. 

Although the invention has been described in 
terms of the preferred and alternative embodiments 
detailed herein, those skilled in the art will appre- 
ciate that many modifications may be made. All 
such modifications are . intended to be included 
within the scope of the claims appended hereto. 



Claims 

1. A control system for an apparatus having a 
plurality of electromechanical devices controlled by 
said control system, said control system having a 
CPU (20) wherein the improvement comprises soft- 
ware means (Figures 4, 5, 6) for allowing a user to 
cause said CPU to run any of a plurality of fixed 
command sequences or to program one or more 
new sequences using commands at any of a plural- 
ity of complexity levels where at least one com- 
plexity level is populated by commands which are 
macro commands in the sense that each is a 
concatenations of commands from at least one 
other of said complexity levels. 

2. The apparatus of claim 1 wherein said soft- 
ware means includes means (Figure 6) for allowing 
a user to program sequences at a first level with 
macro commands each of which causes a pre- 
determined sequence of events to be performed by 
said electromechanical devices. 

3. The apparatus of claim 2 wherein said soft- 
ware means' is also for'allowing said user to modify 
the parameters of each command from default pa- 
rameters where said parameters characterize some 
physical characteristic of the sequence of physical 
events that will be caused by execution of said 
command by said CPU. 

4. The apparatus of claim 3 wherein said soft- 
ware means includes means for allowing said user 
to program a new sequence of commands to cause 
said electromechanical devices to perform at least 
one physical event where the commands available 
to the user are more primitive than the commands 
on said first level in the sense that each command 
represents a predetermined sequence of events 
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which is less complex than the predetermined se- 
quences of events caused by the commands at 
said first . level. 

5. The apparatus of claim 4 wherein said soft- 
ware means includes means for allowing each user 
to be identified by a code and further includes 
means for allowing at least .one user to define the 
access privileges of all the other users and encode 
this access privilege data such that said software 
means can determine from said user identification 
code the access privileges each said user has. 

6. The apparatus of claim 5 wherein said soft- 
ware means includes means to allow a first group 
of users to have access to and to run only said, 
fixed sequences of commands and to allow a sec- 
ond group of users to run any of said fixed se- 
quences of commands or to program a new se- 
quence using only the commands at said first level 
and to allow a third group of users the ability to 
program a new sequence using commands at ei- 
ther of said first level or said second level or to run 
any of said fixed sequences. 

7. A control system for an apparatus having a 
plurality of electromechanical devices comprising: 

computer means for allowing a user to run 
fixed sequences of commands or sequences of 
commands the user programs himself and for gen- 
erating control signals during the execution of 
these sequences which are coupled to said electro- 
mechanical devices and which cause these devices 
to perform the sequence of physical operations 
defined by the sequence being run: and 

control means for said computer means for 
allowing said user, to select and run any of one or 
more fixed sequences of operations or to program 
a new sequence at either of two levels of complex- 
ity. 

8. The control system of claim 7 wherein said 
control means includes means to allow a user to 
program a new sequence using commands on a 
first level each of which represents a specific func- 
tion of the system involving one or more physical . 
actions of one or more of said electromechanical 
devices or to program a new sequence at a second 
level using commands each of which represents a 
single operation by a single electromechanical de- 
vice. 

9. The control system of, claim 7 wherein said 
control means includes means to program a new 
sequence of operations using commands at either 
of a first level or commands at a second level 
wherein the commands at said, first level each 
represent one physical operation by one electro- 
mechanical device and wherein the commands at 
said second level each represent a predetermined 
sequence of said commands at said first level. - 



10. The control system of claim 9 wherein said 
control means includes means to block access by 
certain users to commands for programming at 
either said first or second levels or both. 

s 
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SOFTWARE LISTING INDEX 

PREP, LOAD, TIME, : 351 330 321 324 327 333 348 402 40a 
ERRORS S< FUNCTIONS 

WINDOWS 354 357 360 363 

FILE SYSTEM 411 414 417 420 423 

SCREEN SUPPORT 378 381 384 387 390 405 

NORMAL SCREENS 393 399 429 

* 

HELP ?< HELP SCREENS 426 

EDITOR S< EDIT SCREEN 336 339 342 

SNAPSHOT z.S6 

TASK SUPPORT 438 441 444 

STATUS TASK 447 450 

DEVICE STATUS DISPLAY 462 465 468 471 474 477 
STATUS BACKGROUND 453 456 459 

CONTROL TASK 501 504 507 510 

METHOD EXECUTION 513 

DEVICE CONTROL 528 531 534 537 546 549 552 555 558 

CONFIG & TABLES 561 621 

HELP SCREENS (DATA) 630 633 636 639 
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This block loads the entire Satpte Preparation Systet. 
It loads all other load blocks that take up the systet. ; . 
A word called SP Cor sp) Mill cause this block to be loaded. 

PREP is the tain entry point to the systet, so after a power up, 
just tvpe *SP PREP" to load and run the systet. Note that 

• SP Hill perfera an 6 DRIVE before loading, so you don't have 
to snitch drives yourself. 



6 \ SAMPLE PREPARATION SYSTEM LOAD BLOCK 

1 EMPTY : TRUE 1 ; : FALSE Z j : NULL 8 

2 

3 86 LOAO \ function key execution 

4 33 LOAO \ screen windows * 

5 45 LOAD \ key functions • * 

6 93 LOAD \ file systet 

7 117 LOAO • \ task support 

8 246 LOAD ' \ Configuration tables 
? 126 LOAD \ status task 

IB 188 LOAO \ control task 

11 57 LOAD \ screens 

12 81 LOAD \ keycode tables 

13 e? LOAD \ Join this with PREP coseand load 

14 87 LOAD \ tain cotiand interpreter 
15 



DECIMAL 
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I 
2 
3 
4 
5 
6 
7 
8 
9 
16 
11 
12 
13 
14 
15 
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The Status task updates the status header when things change. 

The Control task is responsible for executing the user's oethod 
to control the saaple preparation hardware. It is a 
background type task, which' seans that it can not use any 
•Hinting words. Error messages iust be passed back to the 
User task for display. 



8 ( Saspie Prep Task definitions ) 
1 

2 325 TERR! HAL PSTATUS 

3 PSTATUS CONSTRUCT 
4 

5 266a TERKIKAL CONTROL 

6 CONTROL CONSTRUCT 
7 

8 : HALT ACTIVATE STOP ; 
? 

18 \ 6387 PSTATUS 'TYPE KIS ! 

H V 'TAB 3 PSTATUS 'TAB HIS i 

12 

13 

14 

IS 



323 



32 CQHSTAtff RBUFF-SIZE \ UHOTEstf MUST be a pwer of 2 
CREATE RBUFF RBUFF-SIZE ALLOT RBUFf RBUFF-SIZE ERASE 
VARIABLE HRPTR VARIABLE RCOUKT 

CREATE SBUFF 6 ALLOT 

VARIABLE SBCTR VARIABLE SBPTR 

1643200. 1 16 W 2C0KSTAHT DIVIDEND 
HEX : SET-HAHILTCH-BAUD 

DIV10EKD ROT h7 DUP 

83 3FB OUTPUT 3F8 OUTPUT 

X 3F? OUTPUT 3 3FB OUTPUT 

3 3F? OUTPUT Qt 3FC OUTPUT 

3F8 IHPUT DROP 3FA IKPUT DROP ; DECIMAL 
9680 SET-HAM ILTQN-8AU0 F0R6ET DIVIDEND 
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fl \ Satple Prep precoipile load block 



1 

2 : *P S ♦DRIVE 

4 



; \ Allows loadino other local blocks 

\ Pre coepile prelitinaries and general tsols 
\ Clock and calander words for RP3C15 cMp 
\ Set Fprth's tiie and date 
\ Control and status task definitions 
\ Interrupt * buffers for Hamilton valves 
v interrupt driven keyboard input buffer 
\ Error handlino basics 



This is the title that shoHS up in .DRIVES 



10 *F LOAD 

5 \ 13 *P LOAD 

6 \ 12 *P L0A& 

7 I ♦? LOAD 

8 2 ♦? 4 *f THRU 
? S *P 8 *P TH?;U 

10 27 ♦? LOAD 
11 
12 
13 
H 

15 V Sasple Preoeration Syste* Source Code 11/26/86 
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SHADGn for configurations 



SP loads the saaple prep software. Type PREP to run. ~ 



tri run tiie code for t*, returns address of counted string* 
t* compiles an inline string; Mill return it's address. 
INVERT returns the ones coipleient of a value. 
This is the title that shows up in .DRIVES 



B \ Precoipile preliainaries and general tools 
1 

2 : F2 1 SCR ♦! SCR ? LIST ; \ Useful functions; 

3 : Fl -1 SCR SCR < LIST ; 

4 : F3 HEX KEX ' 5 

5 : F4 DECIMAL .* DECIMAL 9 } 

7 HEX 1FIF KIDTK ! DECIMAL \ 32 Char definitions 
8 

? : SP 8 DRIVE 36 LOAD ; \ Sample Prep Systet load cotiand 

IS : ASCIK 32 WORD 1* C3 ? \ Convert next char to ascii cose 

11 : BIHARY 2 EASE ! ; 

12 : ($') 1 7tt ; 

13 : r COMPILE (f) 34 STRIKS j IMMEDIATE 

14 : INVERT ( n — n') NEGATE 1- ; 
15 



1 1 



9 
IB 
11 
12 
13 
14 
IS 



e 
1 

2 CODE SENB'/SER HEX 

3 3F6 f 2 KOV SBPTR V KOV 

4 W ) e HOV (2) OUT SBPTR IHC KAIT JHP 

e 

J 

6 VARIABLE CALLER B CALLER ! 

7 ASSEMBLER BESIK B PUSH 2 PUSH M PUSH OS RISKS 

8 ZERO t 8 ffflV 0 OS LS6 

9 3FA f 2 KOV (2) IK 3FB I 2 KOV MB 8 TEST 8= 

10 IF ( output interrupt! 

11 IS SES SBCTR DEC 8= 

12 IF IS SEE CALLER H KOV HAKE I » J KOV 

13 aSE IS SES SBPTR I XCHS LODS B 

14 IS SEB SBPTR I ICHG (2) OUT 

15 THEN 



4 

0 

1 HEI 

2 ELSE ( input interrupt) (2) IN 

3 IS SEB BnPTR K KOV 

4 IS SEB 8 R3UFF Ml KOV B 

5 V INC. RBUFF-SIZE 1- t If AND 

6 IS SEB H KRPTR KOV 

7 IS SEB ' RCQUNT IHC THEN 
B US POPS K POP 2 POP 8 POP 

9 OC INTERRUPT 
18 

11 DECIMAL 

12 

13 

14 

15 



3 
I 

2 CREATE KB3UFF 32 ALLOT 

3 VARIABLE KBRPTR 

4 VARIABLE KBHPTR 
5 

6 CODE /KBBUFF HEI 

7 IS SES KBHPTR I KOV 1 INC IF t 1 AND 
B IS SEB QRPTR i CKP 8= NOT 

9 IF I N KOV IS SE6 8 ICS BUFF K> KOV 8 
18 IS SEB 1 KBKPTR KOV 

U THEN RET 
12 
13 
14 
15 
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1 CODE spascii HEX 
7F I 8 ANO 
SHIFT 8 ADD 8 
IS SEB KEYS 1- '4) 8 HOT 6 
28 IB 2 OR 61 fB 2 CKP 6< HOT 



2 
3 
4 

c 

J 

6 
7 
8 
? 
18 
11 
12 
13 
14 
IS 



1 8 MOV 
IS SE6 
8 H flOV 
8 2 KOV 
IF 71 
IF 

THEN 88 
IF B 
ELSE 
IF 



I IB 2 CKP 8< 
IS SE6 LOCK 8 ICR B 
I 1 AND 8* KCT 
8 OR 8= IF IS SEB 
8 8 OR 8= NOT 
08 IB 8 CKP 8= NOT 
IF IS SEE ' )KBBUFF 
15 SEB 28 IB LOCK XOR 
aSE IS SEB 53 IB SHIFT MOV 
THEK THEN RET 



THEN 



8 IB SHIFT KOV THEN 



JNP THEK 



1 
k 
3 
4 
5 
6 
/ 
8 
9 
18 
11 
12 
13 
14 
15 



ASSEMBLER BEGIN HEX 

8 PUSH 1 PUSH 2 PUSH V PUSH 

!S SEE 8330 I OPERATOR * 8A * TEST 8( IF 

. IS SE6 SAKE I OPERATOR 9 KOV THEN 

68 IN 6 1 NOV IS SEB 'KEY STA B 

61 IN 86 IB 8 OR 61 OUT 80 IB 8 XOR 61 CUT 

IS SE6 46 IB 1 MP 8= IF ( Int 17 ) 87CD , THEN 

IS SES ' spascii CALL 

K POP 2 POP I POP 8 POP 

8? INTERRUPT DEC I HAL 



;29 



8 



SsspU P r =? Software SocuftSfititicA 



2 CODE (BKEY?) 

3 KBRPTR 6 NOV KKPTR 8 SUB 8 PUSH NEXT 
4 

5 : BKEY? 

6 PAUSE (BKEY?) ; 
7 

8 HEX 

9 : (BKEY) 

18 BEG IK BKEY? UNTIL 

11 KBRPTR * I* IF AND DUP KBBUFF + C3 SNAP KBRPTR 

12 OECIHAL 
13 

14 » (BKEY) 2- • (KEY) « 

15 ' EXIT 2- V (KEY) 2* ! 
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• 8 \ Function Keys - Load Block 
1 

PETIT stops the other tasks, cleans up, and exits back to FORTH 2 : PEX1T 

It should proept the user before exiting. 3 V Exit Systei? (Y/N)* YES? 

4 IF NORKAL MHSOHFF PA6E 

5 CONTROL HALT PAUSE 

6 PSTATU3 HALT PAUSE 

7 sun- 

8 THEN ; 
9 

IS 83 LOAD 
11 EXIT 
12 
13 
■ 14 
15 



403 



82 



1 
2 
3 
4 
5 
f> 
1 
8 
9 
18 
11 
12 
13 
14 
15 



404 83 

8 \ Function Keys • Sacple Prep function key table 

1 

2 

FKEYS is the function key execution table used by the tain 3 CREATE FKEYS1 

satple prep routine. Defined function keys have routines 4 t 88) ' ST/STP , % PS/CHT , ' CtiD , ' PE1IT 
defined in this table. 3 I 84) 8 f 8 , 8 , . 8 

6 ( 88) B , 6 , • ■ , 8 

7 ( BC) 8 , 8 , 8 , ' DESELECT 

8 Mfl) • -FUNG , 8 , 1 ♦FUKC , 1 SELECT 

9 ( 94) 8 t 8 , 8 , 8 

18 < 98) 8 , • DESELECT , • SELECT , 1 SNAPSHOT 

11 

12 

13 

14 

15 
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>tOMER converts any alpha key to lowercase for cotparison *ith* 

the function coiiand characters. 
PREP is the tain entry point for the Saaple Prep Systet. 

It p2rfQ»*ii5 any require* initialization and then interprets 

single letter cosaands fro* the keyboard. 



8 \ Saiple Prep - Initialization, Rain Entry Point 



( C — c) OUP 41 5B WITHIN IF 26 OR THEN 



KIHSGHQH 
'SCREEN 



1 HEX 

2 : >L0SEK 

3 OECIMAL ■ 
* : PREP- I — ) 

5 6 DRIVE GKG KiNDGK 

6 .FRAJ1E C'3 5TAT.SCR 

7 * VI FKEY3J 'FKEYS ! 

8 WORK KlKDOn (PAGE) 

9 CONTROL SYSTEH PSTATUS RUNNING 
IB 0 'SCREEN ! STAT-OFF STAT.SCR 

11 BEGIN 

12 BEGIN CTL.HSG? HEKSTATE? 

13 KEY -FUNCTION? ?DU? 

14 IF >LCHER CNAR/FN THEN 

15 AGAIN ; 



BKEY? UNTIL 
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-FUNCTIGH? checks a keyboard character to see if it is a 
function key, executing it's routine if it is defined. ~ 
Returns a false if it nas a valid function, true (or the" 
character) otherwise. 



\ Function key execution 
HEX 

VARIABLE 'FKEYS 
: KEYLOAD ( a ---) 

19 G DO I So * OVER KEYS ♦ 
3A KEYLOAD 80 KEYLOAD 99 KEYS C! 
FORGET KEYLOAD 
: -FUNCTION? ( c — c ! 8) 
. CUP D F XITHIN IF 80 ♦ THEN 
CUP SG 9C 8ITHIK 

IF 38 - It 'FKEYS 9 ♦ 3 ?DUP 
IF EXECUTE 8 ELSE 1 
THEN THEN ; 
DECIMAL 



I + C! LOOP DROP ; 
99 KEYS 53 + C! ( esc=??) 



410 89 



e 
i 

2 : CTL.KSG? ( - ) 

3 FROK CONTROL C? 

4 IF FROM.C08T80L GETJ1S6 

5 DROP «RS6 

6 THEN ; 
7 

8 

9 
16 
11 
12 
13 
14 
15 
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* II is the colutn offset to the left window edge (8..M. 
Y! is the nueber of lines down froi the top (B..n). 
- WI3TH "ntains the • of chars across the *indo*. U..7?) 
WEIGHT is the height of the window in lines' (B..24) 
C_R0K is the absolute screen line I of the cursor. 
C.CQL is the absolute screen coluin of the cursor. 

CRTSEG is the screen isaory segment address (88338/ 

.REVERSE takes subsequent screen output reverse video. 
NORMAL restores output to noraal video. 



8 \ Windows - Saiple Prep Mindoiing for IBM iwochrote screen 
1 \ Current window jaraieters 



119 XI 9 ; 

Yia yi a ; 
mm width a 

HE1GHT9 WEIGHT 9 



2 VARIABLE 11 

3 VARIABLE Yl 

4 VARIABLE KWIOTH 

5 VARIABLE HHEISHT 

6 VARIABLE CJ>Q« 

7 VARIABLE C COL 
8 

? 11 ( 8BH) CONSTANT CRTSEG 
18 

I J HEX : UNDERLINE 188 ATTRIBUTE 

12 : INVERSE 7B88 ATTRIBUTE 

13 : NORMAL 786 ATTRIBUTE 

14 34 +P 44 *p THRU 
15 



\ Load the rest of windows 



DECIMAL 
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scroll 



o 

scrolls the current screen window contents up one line. 2 

3 
4 

er 

6 
7 
8 
? 
IB 
11 
12 
13 
14 

15 CODE 



'cursor returns the screen address of the cursor in register K. 
Multiplies cursor row by 80, adds colutn, and tultiplies by 2. 



Hindows - Screen scrolling 



CODE scroll ( — ) I POSH 

3 PUSH WIDTH 3 MOV Yl 8 MOV 
11 8 ADD 6 8 ADD 
G PUSH DISPLAY LDA 
9 V MOV 168 I 6 
REP MOVS 8 POP 
6* UNTIL 3 POP 8 
I POP RET 



83 4 H MOV K KUL 
8 IB 2 MOV WEIGHT 2 HI MOV B 

8 DS LSG 8 ES LSS 8 POP K3IN 
ADD 8 I KOV I PUSH 3 1 KGV 
1 «B 2 ADD MS 2 HI SUB 
IS SS6 8 DS LS6 B ES LSS 



•CURSOR is high level access to 'cursor. 



CODE 'cursor ( — ] 
8 PUSH 68 I H MOV 
8 8 ADD 8 M MOV 



CJiOK LDA 
8 POP RET 



K MUL C.COL 8 ADD 



'CURSOR ( — n ) 9 'cursor CALL V PUSH REIT 
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clear -rases screen flssory p aintsd tfl by K ¥ith t , 
reg, 1 

BLANKS takes a count and screen address and blanks n chars. 

(crl puts cursor in coluin 6 of the viewport window, and 
advances the cursor line I. If line I is beyond bottoi of 
the window, it scrolls window contents up 1 line and puts 
cursor on last line. Returns cursor address in «. 



8 \ Windows - Carriage return 

1 CODE clear HERE DISPLAY LDA 8 ES LSG ATTRIBUTE LDA 



REP STOS 
CODE BLANKS 

CODE <cr) < 
H 8 MOV 



8 IS SSS 
( a n 

— ) 



ES LSG 
1 



RET 
« POP. 



( clear) CALL KEXT 



8 C COL NOV 
CJIQK 8 CMP 8< IF I 
IF 1 scroll CALL THEN THEN 
WIDTH 1 KOV • clear CALL 



?CR Tests cursor coluin position. If off right edge of window, 18 CODE ?CR ( — ) 
it does a carriage return. H is preserved for (type). 



C.ROM INC Yl 8 MOV HHEIGHT 8 ADD 
C.ROK MOV WEIGHT 8 MOV 0 8 OR ' 8> 
1 'cursor CALL V PUSH 
«P0P RET 



11 
12 
13 
14 
15 



BPUSH U LDA WIDTH 8 ADD 8 DEC C COL 6 CHP 
6< IF 1 PUSH 2 PUSH I PUSH ES PUSHS DS PUSHS 
IS PUSHS ' (cr) CALL IS POPS OS POPS ES POPS 
I FOP 2 POP 1 POP 
T>€H 0 POP RET 
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8 \ Hindoos - (type) 



<type) copies the string pointed to by PTR with length given by 
CTE to the screen Kin do* at the cursor position. The cursor 
caluM is advanced for each char, and ?CR Hill Corriaoe return 
Hhen it points past right edge of windon. 



I 

2 CODE (type) 
3 
4 
5 
6 
7 



( — I K PUSH • . 
i PUSH PTR M I HOV CTR UJ 1 HOV ' '.cursor CALL 
DISPLAY LDA 6 ES LS6 ftTTRlBBTE LDA BEGIN 

» ?CR CALL LOOS 8 5T0S C.COL INC 
LOOP 0 IS S5G « ES LS6 I POP « FOP HEIT 



9 
10 
11 
12 
13 
14 
15 



358 



esit puts char fro* stack on screen at cursor. 



ItKADP. returns the absolute screes address of the specified 

window line. 
E1IKE blanks the specified windOH line. 



as blanks the current window. 



1 

2 

3 

4 

5 
i 

Q 

7 
6 
9 
18 
11 
12 
13 
14 
15 
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\ Kindows - esit 

CODE eiit ( c — 1 

' 'cursor CALL DISPLAY LDA 0 ES LSS B POP 
ATTRIBUTE 0 OR ' ?CR CAli STOS 8 IS SSS 
0 ES LSS KEXT 

i ) 



: UKASE ( 1 ' 

m ♦ 68 ( 119. + 2t 
: SLIHE CI—) 

LIKAOR K1DTH5 BLANKS ; 



: CLS ( — ) 
HEIGHT? i* 0 



I EL IKE LOOP J 
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CQLUKN returns the Hindu* coluan of the cursor. (0.. width) - 

♦CURSOR loves the cursor by signed aiount. If in colutn 0, 
and the tove is negative, it backs up one line. 



3 
4 
5 
6 
7 
6 
9 
10 
11 
12 
13 
14 
15 



\ Windows - cursor wisest 

COLUKK ( — col) C.COL 3 113 - ; 

♦CURSOR ( n — ) 
DUP 8< COLUKH 0= AKD IF 

-1 CJHW ♦! m HIDTH0 ♦ C.COL S 
THEH C.COL ♦! ; 
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./expect" is an exact copy trot screen 83 of level 4 listing. 

It has to be defined here because the original is headerless, 
and can't be found by HQRD. (note the vert, bar in front of 
CCDS expect in the source listing: it cosoiles a headerless 
definition) 



This is the title that is used for proorai listings. 



8 \ Windows - expect 

1 CODE expect ( n - n n n) ASSEK&LER 32 I « KOV 

2 I I SUB 12 KOV 8 POP 12 IB 9 Ch7 8= IF . 

3 CHT U) DEC B l< IF CNT U) INC B 

4 ELSE PTR U) DEC CTR U7 DEC -2 11 KOV 

5 SNAP ELSE 2 IB 1 MOV 13 IB 8'CttP 8= NOT IF 

6 PTR Ul « KOV 8< IF ( Fo) 1 1 SUB 2 IB CHT U) ADD 

7 17967 I 8 AOD 8 8 HI XCHG B STOS 32 I « HOV 
6 ELSE STOS B H PTR U) KOV W 8 XCHB 

9 CKT U) INC B CTR U) INC 8= IF 

18 SWAP TKEH SNAP THEN 2 CTR Ul KOV 2 IHC 

11 THEM TKEH THEN 2 PUSH 1 SAR 1 PUSH K PUSH NEXT. 

12 

13 

14 

15 \ Saeple Prep Ver 8.1 
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(CR) High level access to <cr). -Perforas carriage return, 

(TAB) ooYes the cursor position to specified line and colu&n. 
Allows only valid window coordinates. 

(TYPE) He* vector far " TYF"E. - 

(PAGE) vector for 'PAGE. Clears window, hoies cursor. _ 

•«* 

(EXPECT) is called fro« EXPECT in FORTH to get n chars and put 
thei to an address. PTR, CTR, CKT are setup by EXPECT and 
used by 'expect 1 . Advances cursor position- 



Screen output for FORTH 
- ) 9 (cr) CALL NEXT 



8 \ Windows 
1 CODE (CR) ( 
2 

3 : (TAB) ( I c — ) 

4 8 MAX WIDTH? 1- KIN XI? ♦ 

5 8 KAX HEIGHT? KIK U? ♦ 

6 : (TYP.EI PAUSE (type) ; 
7 

8 : (PAGE! ( ~ ) CLS .8 8 (TAB) 
9 

18 : (EXPECT) BEGIN 95 etit (KEY) 

11 expect eiit ♦CURSOR UNTIL ; 

12 

13 

14 

IS 



C COL ! 
C RON ! 
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These constants define the IBh* characters for drawing boxes. 



HHLINE draws a horizontal line the width of the window. 
KSIDES draws the left and right window border. 



4SIDES draws a box around the current screen window. 



DfiAX&GX clears the current window, draws a border around it, 
and puts the viewport just inside the border. 



8 \ Windows - Drawbox 

1 253 CONSTANT TD 2C2 CONSTANT BD 



9 
II 
11 
12 
13 
14 
15 



( — ) WIDTH? 2- 8 DO HZ EKIT LOOP 



2 285 CONSTANT HI 

3 281 CONSTANT UL 

4 288 CONSTANT LL 
5 

6 : HWLINE 

7 : NS1DES 

B I 8 TAB VT EKIT I 
LOOP ; 
4S1DES 
8 6 TAB 
NSIDES 



186 CONSTANT VT 

187 CONSTANT UR 
183 CONSTANT LR 



\ us and down "t B s 
\ horx, vert bars 
\ upper corners 
\ lower corners 



( 



> HE16HT? 1 DO 

WIDTH? 1- TAB VT EKIT 



( — ) 

Ul EHIT KVLINE 
HEIGHT? 8 TAB 



UR EKIT 

LL EKIT WLIHE LR EKIT 



0RAXB3X ( 



CLS 4SI0ES 1 U f ! I Yl ♦! -2 KK1DTH ♦! -2 WEIGHT ♦! 



WINDOW stores the window parameters, clears the window, and 
places the cursor at it's upper left corner. 

BOX is the saae as above, but draws a box around the 
specified window and takes the window 2 characters smaller 
in both height and. width. 

WORK The work window is the full width screen between the 

status header and the §enu bar. 
FULL uses the entire screen. 

SELECTION is the snail window on the right side used for 

selecting things. 
BIDED IP. is used for full directory listings. 
HELP SI ZE is the help window. 



8 \ Windows - Windowing 
1 

2 : WINDOW ( xl yl w h — ) 

3 WEIGHT ! WIDTH ! Yl ! XI i 8 8 (TfiB) ; 

4 ' • 
3 : BSX t xl yl m 1% — 1 

6 WINDOW ORAWBOX 8 0 (TAB) ; 

7 - 

8 \ Window Types: 

9 : WORK 8 2 88 17 ; \ use all these as prefuer to 
18 : 6K8 8 8 88 24 ; \ WIHDOW or BGX i.e: 

11 : SELECTION 67 2 13 17 j \ *BKG WINDOW 

12 : WIDEDIR 14 2 66 17 ; 

13 : KELPSUE 8 2 66 17 ; 

14 : EDIT IKS 6 2 67 17 ; 
IS 
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These constants contain the addresses of the non-windowing 
output routines. Used when disconnecting the windowing 
functions, or writing directly to the screen. 

UYPE types chars to the un-windowsd screen. It duplicates 
the cede found in tzz 78 of LcVcI 4 listing. 
( 193S is address of (typ*) ) 

tTAB positions the cursor on the un-windowed screen. 

I EMIT prints a char to screen without using windows. 

tSPACE outputs a space directly to the screen. 

ISPACES sends n spaces. 

tCLINE clears the given full screen line. 

IEXPECT Expects n chars to addr and echoes to full screen. 
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8 \ Windows - Full screen output 

1 'TYPE 9 CONSTANT [TYPE! 'EXPECT 3 CONSTANT (EIPECT3 

2 'PAGE J CONSTANT [PAGE] 'TAB * CONSTANT CTAB1 

3 'CR 3 CONSTANT CCRJ 

4 CODE 1TYFE (an — ) HEX 

5 8 POP PTE U) POP 8 8 OR 8> IF 0 CTR U) NOV 

6 8 C* M ADD [TYPE] f W IBV ' EXECUTE 1+ tf.P TKEK NEXT 

7 DECT HAL 

8 : tTAB ( — ) tTAB] " . EXECUTE ; 

9 : 1EHIT < c ~ ) 'S 1 tTYPE DROP ; 
18 : (SPACE ( — ) 32 IEM1T ; . 

11 : ISPACES ( n — ) BEGIN ?ANY WHILE tTYPE REPEAT ; 

12 : tCLIKE (1 — ) 168 I 86 BLANKS ; 

13 : IEXPECT (an — ) 'EXPECT 9 >R [EXPECT] 'EXPECT ! 

14 EXPECT R> 'EXPECT ! ; 
15 
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KIKDGXOFF restores FORTH' s screen output routines. 



WINDOW ON connects FORTH to the window output 



WINDOW? displays the current window parateters. 



legal Valve" 



44 

8 \ Windows - Windowing on / off 
1 

2 : KINBGWOFF ( — ) 

3 [TYPE] 'TYPE ! [CR] 'CR ! (TAB] 'TAB ! [PAGE! 'PAGE 

4 [EXPECT] 'EXPECT i ) 
5 

6 : WIHDQKON < — ) 

7 P3 ITYPE) 'TYPE ! P3 (CR) 'CR ! P3 (TAB) 'TAB ! 

8 CI (PAGE) 'PA6E ! PI (EXPECT) 'EXPECT ! ; 
9 

18 : WINDOW? ( — ) 

11 CR XI, Yl: • X13 . SPACE Ytf . CR .' WIDTH: ' 

12 WIDTH? . CR HEIGHT: • KEI6HT9 . CR ; 
13 

14 
15 
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8 \ Saaple Prep File Systei - Load Block 
^Fl Current file nuiber; directory index for this file. 1 VARIABLE Fl -1 Ft ! 

FFTR first block of file. 2 VARIABLE BCT 

8CT Nuaber of blacks in file. 3 VARIABLE EOF 

EOF 6 = not end of file. 4 VARIABLE UPDATED 

UPOATEO Flag indicates tihethsr file Has written to or not. 5 VARIABLE DETAILS 

DETAILS Controls directory printings fcshort isiong for§at 6 VARIABLE LMBERR 
LOADERR Kot zero if a file Has not found when loading. 7 8 CONSTANT .'BAT 

*BnT is the block nuober containing the block allocation table. 8 326 CONSTANT HAXBLKS 
KAX8LKS Nuaber of blocks on disk that the file systei uses. 9 4 CONSTANT ISTBLK 
ISTBLK The first useable block on an e*pty disk. 10 ISTBLK 21 CONSTANT RESERVED 

BAT5IZE is the nuiber of bytes in the block allocation table. 11 HAXBUCS 2t CONSTANT BATSIZE 
BATJUFis a buffer to hold the block allocation table nhsn a 12 CREATE BATJUF BATSIZE ALLOT BAT BUF 3B ERASE 
file is open. l3 BflT m CONSTANT FPTR 

.14 71 4P 104 *P THRU \ Load the rest of the file systea 
15 EXIT 
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3 \ File Systei - Block Allocation Table 

1 : DBLOCK < blkt — a) DUP 8 32B HITHIN NOT ABORT" blk error' 

DBLOCK is used to read and write only to drive 0. 2 OFFSET 3 >R 8 OFFSET ! BLOCK R> OFFSET ! j 

3 

4 : 6ETJAT ( - I 'BAT DBLOCK RESERVED + 

' GETJAT reads the block allocation table froa the disk. 5 BATJUF RESERVED ♦ BATSIZE RESERVED - KOVE ; 

SAVEJAT writes the CAT tc the disk. 6 : SAVEJAT ( - ) BAT BUF 'BAT DBLOCK BATSIZE HOVE UPDATE ; 

7 

nBATJ Returns the contents of the ith entry in BAT (a block. 1). 8 : nBAT? ( i — blkt ) 2t BAT_BUF ♦ 9 ; 

nBAT! Stores n into the ith entry of BAT. \ 9 : nBAT! ( n i — ) 21 BATJUF ♦ ! ' ; 

INITBAT creates an r e«pty block allocation table on the disk. IB : INITBAT BATJUF BATSIZE ERASE ( BATJUF ISTBLK 2t -I FILL ) 

II SAVEJAT FLUSH ; 

nthBLK returns the block I of the nth block of a file, or -I. 12 CODE nthBLK -112 KOV 1 POP • FPTR B KOV 1N2 IF 

13 BEBIK 8 2 CM? B= IF 11 SUB aSE 8 8 ADD ' BATJUF I 8 

14 ADD B K NOV H 1 fl NOV 1 OEC THEN 8= UNTIL THEN 

15 6 PUSH NEXT 
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VBLK? aborts if the block nuiber is invalid. 
FREEBLK finds the first unallocated block on the disk. It 
aborts if the disk is full. 



EHOBLK larks the given block as the end of file block in the 
BAT. 

ALLOCATE adds the given block to the end of the current file. 



QFJILE determines if the given block is already part of the 
current file; returns true if so. 
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0 \ File Systea - Block Allocation 

1 . 

2 : VBLK? ( blkt) -1 KAXBLXS HITHIN NOT ABORT* bad blkt' ; 

3 : FREEBLK ( — blkl ) -I NAIBLKS ISTBLK DO 

4 1 nBATJ 8= IF DROP I LEAVE THEN LOO? 

5 DUP 8< ABORT" disk full" ; 

6 : PPTR 8 SKAP ?DUP IF 8 DO n8AT3 LOOP THEN ? 

7 :n ALLOCATE 

8 PPTR DUP nBAT? 3 PICK nBAT! nBAT! I BCT ♦! 
? SAVE BAT ; 

IB : n DEALLOCATE 

tl PPTR . DUP nBATi DUP «8AT* ROT nBAT! 

12 8 SNAP nBAT! -I BCT ♦! SAVE BAT ; 

13 : OFJILC? ( blkl — t ) >R FPTR ? BE6IH DUP VBLK? 

14 DUP -I * OVER I * OR NOT KHILE nBAT) REPEAT R> = ; 
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FREECNT returns the nuiber of free blocks left on the disk. 
.SAT prints the block allocation table. 



LINKS prints the Mock nuebers that belong to the current file. 
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OPEN? aborts if a file is already open. 
-OPEN? aborts if a file is not open. 

•LATEST returns a pointer to the tost recently accessed block I. 
LATEST returns the cost recent block nueber (without update bit) 
FLAGGED tests the update bit of LATEST. 

?5R¥ returns true if the block belongs to drive 6. 

FUPDATE is used in place of UPDATE «hen writing to- a file. It 

allocates a new block to the end of the file if the written 

block is not already part of the file. 
rBLGCK reads the nth block relative to the beginning of the 

current file. 

FBLOCK is ussd in place of ELGCK to access a file block. 



6 \ File Systet - Testing words 
1 

2 : FREECHT ( — ft 1 8 KAXBLKS ISTBLK DO 

3 I nBAT3 8* ♦ LOOP ; 

4 : .BAT CR FILE* « Ft a . FPTR- FPTR a . .' BCT* • 

5 BCT 3 . BAT.BUF BATSIZE OUttP FREECNT . free bits' CR ; 
6 

7 : LINKS CR FPTR a BEE1M DU? 4 U.R nBATS DUP -1 * UNTIL DR3P 

8 CR ; 
? 

13 
11 
12 
13 
14 
15 
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6 \ File Systea - File Block Accessing 

1 : OPEN? Fl a 1+ 8> ABORT" file is open!" ; 

2 : -OPEN? Fl a B< ABGRT' file not open! - ; HEX 

3 : 'LATEST ( ~ a 1 PREV DUP 9*4+ ; 

4 : LATEST ( — blkl ) 'LATEST a 7FFF AMD ; 

5 : 7FLASGED ( — ) 'LATEST a 8833 AKD !F R> DROP THEK ; 

6 DECIMAL 

7 : ?BRV < — t ) LATEST 32B ( ; 

8 : FUPDATE ( — ) ^OPEN? CLASSED UPDATE 1 UPDATED ! ; 

9 : rBLOCK ( rblk* — a 1 * FPTR a 8= ABORT" fptr=T 
18 nthBLK DBLOCK ; 

11 : FBLOCK ( rblkt a ) -OPEN? 8 KAX DUP BCT a - 8< 

12 IF rBLOCK 

13 aSE : DROP FREEBLK ' DUP BCT a nALLOCATE 

14 DBLOCK DUP 1824 BLANK FUPDATE 

15 THEK ? 
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KAXFILE3 is the nuaber of files supported by the directory size. 
EKTRYLEN Size of each directory entry. 
IffiLEN Kutber of characters in the filenats. 
'DIR is the first disk block of the directory. 

ISLKS contains the file block count. Updated at FCLOSE. 
BLKl is the first block of the file. Use BAT to find the rest. 
Creation date 
tiie 

Hadification date 
tiie 
File attributes 

'ENTRY returns the address of the directory entry for file n. 
IKITDIR initializes a directory. 



8 \ File Systee - Directory Structure 

1 ?6 CONSTANT RAXFILES 

2 32 CONSTANT ENTRYLEN 

3 11 CONSTANT NNLEN 

4 1 CQHSTAKT 'DIR 

5 ( Offsets into directory entry ) 

6 11 CONSTANT 4BLKS 
.7 .. 13 CONSTANT BLKl , 

8 15 CONSTANT CRDATE 

V 17 CONSTANT CRTIHE 

18 19 CONSTANT MATE 

11 21 COHSTAHT HTIKE 

12 23 CONSTANT FTYPE 

13 : 'ENTRY (II — a ) EHTRYLEN 1824 l/KOD 'DIR ♦ DBLOCK ♦ 

14 : INITDIR HAXFILES 8 00 I 'ENTRY EHTRYLEN 8 FILL UPDATE LOG? 
15 
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8 \ File Systei - Directory accessing 

1 : SCAHOIR i 'nate ft ) >R -I HAIFILES 8 DO 

2 I 'ENTRY KMLEN J HKLEH -HATCH 8= IF 2DR0P I LEAVE 

3 ELSE DROP THEN LOOP R> DROP. ; 

6ETENTRY returns the next eipty directory entry for a new file. S : GETENTRY € — ft I -1 HAIFILES 8 DO J 'ENTRY Q 8= 



v SCAN0IR takes a pointer to a filenaie and searches for a latch 
to that naie in the directory. If found, it returns a valid 
file nuaber, else it returns -1. 



IF DROP. 1 LEAVE THEN LOOP 



FOUHD is used after SCP.NDIR to test for finding a filenaie! 8 : FOUND ( ft 
FILEHTPY returns the address of the directory entry for the file 9 : FILEHTRY { 



in Fl. 

1KITF1LE copies the file pointer and block count into user 
variables and sets the indicator to 'file not ladified*. 



t I 1»0) ; 
a ) Fl 5 'EHTRY ; 



18 

11 : 1H1TFILE ( — ) FILEHTRY DUP 4 BL ICS ♦ i BCT ! 

12 BUU ♦ 9 FPTR ! 8 UPDATED ! ; 
13 

14 
15 
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HAKEFILE constructs the directory' entry for a nw file. It ■ 
allocates one block to the new file and sets the tiie and date 
of creation and ludification. The directory entry will be 
written to the disk. 



FCREATE Creates a new file if it doesnt already exist. The 
new file is opened for reading/writing. It returns 8 
successful!, 1 if the file already exists, and 2 if the~ 
directory is full. 
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0 \ File Systes - File creation 

1 : HAKEFILE ( 'naie fl - ) FREE3LK -1 OVER nBAT! SNAP 'ENTRY 

2 DUP >R ENTRYLEN 6 FILL I cLKl + i I fmLEN HOVE 

3 i I IBLKS ♦ ! 3TIKE DUP I CRT I HE * ! I HTIKE ♦ ! 

4 TODAY 4 OOP I CROATE * ! I KDATE ♦ ! 8 R> FTYPE ♦ ! 

5 UPDATE ; 
6 

7 : FCREATE ( 'naie — t ) 

6 OPEH? DUP SCAKDIR FOUHD NOT IF 
9 . GETENTRY DUP 1* 8> IF 

18 GETJAT SKAP OVER ( fl »ni fl) MAKEFILE 

11 Fl ! INITFILE 1 UPDATED ! 8 

12 . aSE DROP 2 

13 THEN 

14 ELSE DROP i 

15 THEN ; 
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FOPEN opens an existing file for access. It sets Fl to the 
file's directory index, and puts IBLKS into BCT and BLKI into 
FPTR. Returns 8 if successful!, 1 if file does not exist. 

FCLQSE Krites out the open file's new block count if the "file 
has been Modified, and updates the lodifi cation date and tite. 



FOELETE reioves the given file froi the directory (by putting a 
8 in the first filenaie char), and releases it's blocks for 
other files to use. 



8 
1 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



\ File Systet - Prograi access to files 

FOPEN I 'naie — t ) OPEN? SCANDIR DUP FOUND IF 
GETJAT INITFILE 8 aSE DROP 1 THEN ; 



F# ! 



FCLOSE ( — ) -OPEN? UPDATED 9 8> IF SAVE BAT FILEHTRY 
BCT 3 OVER IBLKS ♦ ! TODAY 3 OVER HOATE ♦ • iTIHE SHAP 
HTIKE 4 ! 8 UPDATED ! UPDATE FLUSH THEN -1 Fl ! j 

FOaETE i 'naie — t ) OPEN? SCANDIR DUP FOUND IF 6ET BAT 
•ENTRY DUP 8 OVER C! UPDATE BLKI ♦ 9 BEGIN OUP VBLK? 

. DUP nBAT? . 8 ROT nBAT! DUP -1 * UNTIL 
2DP.0P 8 SAVE.BAT FLUSH THEN ; 
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NAME gets the filenaie froa the input and puts it in PAD. 
MAKE *$!-? 5 a ne* file and Isms it open. /HAKE rtt* 

OPEN opens an existing file for access. 'OPEN XXX" 

CLOSE closes file access, updating file inforeation. 'CLOSE' 

DELETE rewves a file fros the directory. No file say be open 
(then this com and is used. 'DELETE XXX' 



C \ File Systei - User file couands 
1 

2 : NAME ( — a ) 32 TEXT PfiD ; 

3 ( EXIT I \ TESTING HQRDS 

4 : MAKE < — > NAME FCREATE DUP*0> IF 1 = IF 

5 .* already exists - aSE .' directory lull* THEN 

6 ELSE DROP THEN ; 

7 : OPEN ( ~.) NAME FOPEN B> IF .' can't find' THEH r 
6 : CLOSE ( — ) FCL03E ? 

9 : DELETE ( — ) NAME FOELETE 0( IF .' can't find* THEN ; 
16 

11 EXIT 

12 : MULT-LOAD 

13 >IN 23 >R )R B >IH 2! 

14 STATE 3 IF ] ELSE INTERPRET THEN 

15 F:> R> >IN 2! DECIMAL ; 
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(FLIST) types the contents of the given block froi the current 
open file. 



FLIST types all tne oloas m tne current open file. 
(LOSS! causes FORTH to interpret fros the disk file ( this is 
the norial loading process). Nested file loads are ok. 



IKCLUEE can be used in a source code file to cause another file 
to be "included - or loaded. Use: INCLUDE XYZZY 



0 \ File Systec - Utilities 

1 : (FLIST) ( n) -OPEN? BCT 3 HIN 8 MAX 

2 .' Files ' FILENTRY NMLEN TYPE .' Block: ' 

3 DUP . 16 8 DO CR I 2 U.R SPACE DUP FBLOCK 

4 I 64 I ♦ 64 /TYPE LOOP CR 

5 EOF 3 IF .* END OF FILE' THEN SCR ! ; 

6 : FLIST ( -) BCT 3 8 DO 13 MOD 8= IF PAGE CR CR CR CR THEN 
7 ' i (FLIST) CR CR CR LOOP } 

6 s (LOAD) ( 'nt — ) OFFSET 3 )R B OFFSET ! 
9 Ft 3 >R FPTR 3 >R BCT 3 >R EOF 3 )R UPDATED 3.)R -I Fl 
18 FOPEK 6= IF BCT 3 6 DO I flthBLK LOAD LOOP 

11 ELSE 1 LCADERR ♦! THEH 

12 R> UPDATED ! R> EOF ! R> BCT ! R> FPTR ! R> Fl ! 

13 R> OFFSET ! ; 
14 

15 : INCLUDE ( - ) NAME (LOAD) ; 
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These word print the contents of a directory entry. 



•EKTEY prints the directory entry for file n on one line. 
Foriat of directory depends on DETAILS. 

.HEADER prints s heading for the directory cowand. 



2 
1 
2 

3 
4 
5 
I 
7 
8 
9 
IB 
11 
12 
13 
14 
15 



\ File Systeo - Directory Support 

.NAME ( fl) 'EKTRY NMLEN TYPE • 

.IBLKS ( fl) 'ENTRY IBLKS ♦ 3 4 U.R 4 SPACES 

• BLKi ( fl) 'ENTRY HJC1 ♦ 3 4 U.R j 

.CROT ( fl) 'ENTRY CRDATE ♦ 3 .DATE 3 SPACES 

.CTIME ( fl) 'ENTRY CRTIMS ♦ 3 .TIME 

•MDATE ( fl) 'ENTRY HDATE ♦ 3 .DATE 

•KTIKE ( fl) " 'ENTRY MT1HE ♦ 3 .TIME 

•FTYPE ( fl) 'ENTRY HYPE + 3 4 U.R 



SPACE 



SPACE 



DUP >R .NAME 
.IBLKS I ICfiDT 



.ENTRY ( fl) 
I .3LKI I 
R> DROP ; 

.HEADER .' Files:' DETAILS 3 IF 
.' Type Blki Iblks' 4 SPACES 
.' Modified:' THEN ; 



DETAILS 3 
I .MDATE 



IF SPACE I .FTYPE 
I .KTIKE THEN 



5 SPACES 

Created:* & SPACES 
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oPGJO finds the nth printable directory entry. Used for 
•peeing* the directory listing on the screen. 



r FS contains offset to the first valid directory entry to print. 
HOME If true, no entries were printed. 
(DIR) prints n valid directory entrys starting at P6 in the 
for»at selected by DETAILS, 



.01* prints every directory entry (TESTING). 



0 \ File Systei - Directory Display 

1 : PS TO < o — fi) U -1 SNAP 8 00 

2 1+ < ptr) DUP 'ENTRY C3 IF 1 ELSE 8 THEN 

3 OVER RAIFILES I- * IF LEAVE THEN ♦LOOP ; 
4 

5 VARIABLE PG 

6 VARIABLE HOKE 

7 : (DIP.) { n ^ ) .HEADER TRUE NONE ! PS 3 P6.TO SWAP 8 DO"* 

8 OOP HAXFILES * IF LEAVE 6 &SE OUP 'ENTRY C3 IF 

9 FALSE NONE ! CR DUP .ENTRY I ELSE 8 THEN 
16 SWAP 1+ WAP THEN ♦LOOP DROP ; 

11 

12 : DIR . HEADER KAXFILES 8 00 I 8> I 16 NOD 8= AND IF KEY DROP 

13 THEN 

14 CR I . I .ENTRY LOOP ; 
15 



poup decrefients page by the current Hindow height. 

pgdn advances Pb Oy mndoH size if tftere is lore to display. 



SHOKDIR lakes a rindon box on the screen, displays .the Hies, 
and allows pageing up or down in the list until a key is 
pressed. 
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8 \ File Syste* - Directory Display 
1 

2 142 CONSTANT UPKEY 

3 158 CONSTANT DNKEY 
4 

5 : pgup ( - ) P6 3 WEIGHT 3 - 8 m PG ! ; 

6 : pgdn ( - ) NONE 3 8= IF PG 3 KHEIGHT 3 ♦ KAXFILES fllN 

7 F6 '! THEK ; 
8 

9 : SKCKOIP. ( - ) 8 PG ! DETAILS 3 IF KELPS1ZE 

10 ELSE SELECTION THEN 80X 

11 6E6IN aS 8 8 TAB KHEIGHT 3 (DIR) KEY DUP UPKEY - IF 

12 DROP pgup FALSE &SE 0HKEY = IF pgdn FALSE ELSE TRUE 

13 THEK 'THEN UNTIL WORK HINDOW ; 
14 

15 
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F/P nuxber of files printed per page. 

•DIR is used to print a disk directory on the printer. 
It advances to the top of a page, prints a header and prints 
up to F/P file entries. 



8 \ File Systei - Directory Printing 
1 33 CONSTANT F/P 

2 

3 : .DIR ( — ) 

4 8 ( entries printed) KAXFILES 8 DO 

5 OUP 8* IF PAGE .HEADER CR !♦ THEN 

6 1 'ENTRY C9 IF CR I .ENTRY 1* THEN 

7 DUP F/P * IF DROP 8 THEN 
6 LOOP DROP 

9 CR CR FREECNT 22 SPACES . Free blocks* 
IB 

11 
12 
13 
14 
15 



CR 
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8 \ Saipie Prep Screen Support - Load Block 
This todule contains the definitions that aanage the Saipie 1 

Prep screens. 2 71 LOAD \ Words for changing attributes directly 

3 58 5? THRU \ Screen Maintenance 

4 67 6B THRO \ user input /output . • 

5 63 64 THRU \ Screen Haintenance ' 

6 70 LOAD \ Cowand Interpreter 

7 65 66 THRU . \ ST/STP/PAUS/COKT and coaion Menu Labels , 

8 132 139 THRU " \ Status screen background 

9 185 LOAD \ help screen support 

18 69 LOAD \ fake screen displays tt TEMPORARY U 

11 15 LOAD \ editor 

12 78 LOAD \ filer screen 

13 108 LOAD \ print screen 

14 72 LOAD \ status screen 

15 84 LOAD \ resolve forward references in screens 
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Pointer to current Screen data structure. 

'SCRN returns the address of the current screen data structure. 
Fnl returns the address of selected function nuiber. 
Fn?3 returns the currently selected function nueber. 
Pgft efnree the current ' fus^ tics nusbsr « 
SCRi cets the address of the current screen ID nuaber. 
/FUHCT returns the address of an entry in the current screen 
table '.pointed to by 'SCREEN for the given function nutber. 

FCHAR returns the cG«and character for the given function 
nusber fros the current screen. 



6 V Screen Support - basic tools 

1 VARIABLE 'SCREEN VARIABLE CELLFLS 

2 16 CONSTANT /CELL 23 CONSTANT 'BAR 



VARIABLE KENU-ON? 



4 : 

5 : 
6 

7 : 

8 : 

9 : 

10 : 

11 : 

12 : 
13 

14 3 
15 



MKPUTLINE 24 0 UAB ; : )HLPLIKE 22 10 tTAB J 
)RS6LIM£ 20 0 tTAB ; VARIABLE KSE0H? 



( — a ) 
( — a I 
( — n ) 
( n — ) 
( — n 1 
t n — 
( /entry) 7 
FCKAR ( n — c) 



•SCRK 
Fnl 
Fr« 
Fnt! 
SCK 
>FUNCT 
5 I 



•SCREEN 
'SCRN 
•SCRN 3 
•SCRH ! 
•SCRN 
a ) 

♦ ( header) 
>FUNCT 4 ♦ 



6 ♦ 



'SCRH 
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rlSSFLS if true, disclsy selection eessaoe on line 23. 
>iiSSLIKE positions cursor at coluen 0 of the help line. 
MKrUTLIKE puts the cursor on the last line of the screen. 
LKAR6H types spaces to center following text. ( 
RtiAREK fills reest of line with spaces to clear old text on line 
CENTERED types the text at address V centered in a field sz 
chars Hide. 

•KEY prints the cowand char of the current function. 



dotH - prints text centered on Hessage line. Refer to FORTH' s 
dot" definition on screen 86. 
F* cotpiles a string to be printed outside the trindoH. 
•C* cotpiles a string centered or. an 80 char line. 
•H" cotpiles a string to be printed centered on the procpt line 
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0 \ Screen Support - Hessage and Protpt Foroatting 
1 

2 : LKARGH ( si a — ) C9 - 2/ ISPACES ; 

3 : RHARGH ( sz a — ) - BUP 2/ - tSPACES ? 

4 : CENTERED ( sz a — ) 2DUP LHARGN WJ? COUNT tTYFE RKAR6N 
5 

6 : dotF' ( — ) 1 ?R3 COUNT 

7 CELLFLS 3 IF INVERSE ELSE UNDERLINE THEN 

8 HYPE NORMAL ; 

9 : dotC ( — I 88 1 ?R9 CENTERED ; 

10 : dotH' < — ) im CELLFLS 3 

11 IF >HLPLINE 60 SNAP UNDERLINE CENTERED H0RHAL 

12 aSE DROP THEN ; 

13 : .F- CQNP1LE dotF' 34 STRING ; 1KKEDIATE 

14 : .C CGKPILE dotC" 34 STRING ; IIUBIATE 

15 : ,H' COMPILE dotH' 34 STRING ; IKKEDIATE 



1711 1AM <Offlrt \ - 1 — 
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/CELL Size of Menu Bar cell in bytes. 
^**AR is the line nuiber of the lenu bar. 
>CELL positions cursor at beginning of lenu cell for the given 
function. . 

•CELL prints the label for a ienu cell by executing the 2nd 
address in the function table. 

HS66FF turn the selection inforiation on and off. 
CELLOFF prints the crii label with norial video (white on 
black). 

CELLOH prints the cell label in reverse video. 
.MENU fills the eenu bar outline with the text fields defined 
in the screen pointed to by 'SCREEN. 



6 \ Screen Support - Kenu Cells and Labels 

1 : >CELL I n - II ct ) /CELL t 'BAH SWAP ; 

.2 : .CELL ( n - ) OUP >CELL ITAB >FUNCT 2* 3EXECUTE ; 

3 ; .BAR 'BAR 1- 6 ITAB 7? ISPACES 'BAR 8 STAB 79 (SPACES 
4 

5 : CELLOFF - ) 

6 t HEX 3 ICQ I DECIMAL 1 FnlJ >C£LL /CELL 1- NAT ; 

7 : .htKU ( - ) 

8 1 HEHU-ON?-! 

9 UNDERLINE .BAR NORKAL 

10 6 CELLFLG ! 8 0 00 

11 I Fn43 = IF 1 CELLFLG ! THEH 

12 I .CELL 0 CELLFLB ! 

13 LOOP 1 CELLFLB ! ; 

14 : HEHU-OFF ( - ) 

15 e MENU-QN? ! .BAR ; 



61 



KEnSCREEK switches the display to a new screen. 



ISCRW is increeented by. each new screen definition and used as 

the screen ID. Contains the mistier of defined screens. 
The screen ID is used by HELP to display the right help screen. 
DEFSCRn is a cc-apiler ngrd that creates a Screen data structure. 
Fhe structure consists of an index (8.. 7) of the currently 
selected function; a pointer to the previous screen; a pointer 
to a procedure to execute when this screen is selected an* dis- 
played; a unique screen ID nusber (screens are nuibered se- 
quentially froa 1 to n as they are defined); and 8 function and 
6 function entries, each. containing three entries: the address 
of a function to execute, the address of a tenu label displayer, 
and a couand character that Kill execute the function. 



\ Screen Support - Screen Data Structure Definition 



NEKSCREEN ( 'screen - 
OUP 'SCREEN 3 = HOT 
IF OUP 'SCREEH ! 
•KENU 

4 ♦ 3EXECUTE 
ELSE DROP TKEH. 



> 

\ point to ne« screen 

\ print the new ienu 

\ execute the screen prQc 



VARIABLE 4SCRNS \ nuiber of defined screens 

DEFSCRN ( — ) CREATE S , ( fund) 
8 , ( link is filled in later) ' , ( screen proc) 
i ISCRHS ♦! tSCRKS 9 C, ( screen ID4) 
8 8 DO CC0HPILE1 ( ' , ( function) • f ( text) ASCIK 
LOOP D0ES> ( — 1 NEKSCREEH ; 
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DO.FUKC uses given index to fetch function pointer and executes 

it. ..\..,-.. 
OFUKC ioves the highlighted selector left or right on the terni; 

bar. *n is right, -n is left. 
♦FUNC toves the selector* to the right. The selector wraps 

around if in the rightiost position. C , 
-FUNC aoves the selector to the left. The selector toves to the 

rightmost position if on position 8. , 
SELECT executes the function pointed to by "the current function, 

index in the current Screen pointed to by 'SCREEN. 
DESELECT exits the current tenu and goes to the previously - 

selected tenu. 

CKAR>FN coipares a given character to the function characters 
in the current screen and executes the function it matches. 



\ Screen Support - Menu cell selection words 



DO.FUKC 
OFUKC 
CLRMSS 
♦FUNC , 
*«fUNC 
SELECT 



( n 
( n — ) 
. CELLOFF 
( — ) 
( — ) 
( — ) 



) CLR»S6 OTHCT EXECUTE 



DESELECT ( 



) 



FnM +.7 AND OUP Fnl! ...CELL 5 
1 OFLWC ? . 
-l.OFIK ; ,.■ 
FnH DO FUNC ; 

CLRHSS 'SCRN 2*. 3 , KEKSCREEN : 



: CHAR>FN ( c — ) 8 8 DO 
IF I DO FUNC '. LEAVE THEN 



OUP I >FUNCT 4 ♦ C9 
LOOP DROP : 



CnOTU D^nnriofapw 1*1 1AM 1 Q £71(71 01(71 • "Q \ Qamnl a Cvon Wor £71 1 
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.TITLE prints the systea title on the top line of the screen. 



.STATUS prints the status line on line 2 of the screen. The 
contents of the fields will be updated by the STATUS task; 



e 

1 

2 : 
3 
4 
5 

" V- 
7 : 
8 
9 

10 V 



\ Screen Support - Status Header 



.TITLE 
10 26 TAB 
12 34 TAB 
24 32 TAB 



SP 18,8BB SAMPLE PREPARATION SYSTEM • 
VER B.T 

hit any key!' KEY ; 



.BANNER displays the status the status header on the top 2 lines 11 V 
of the screen. 12 UNDERLINE 

13 UKDERLIKE 

14 -NQRKAL ? 
"'15 



.BANKER « 0 TAB 

-UNDERLINE 4 SPACES .' Status:' - 
UNDERLINE READY ' 

UNDERLINE 6 SPACES TODAY 9 .DATE - 

1 SPACES 9TIRE .TIKE 5 SPACES 
30 SPACES Method: No Method ■ 
5 SPACES 
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KID prints the horizontal line for 1 ceil. 
1B0XTDP draws the top of one cell. 
IEGXMID draws the riddle line of a box. 
1B0XBTK aafcee the bottor line of a box. - 
TQPP draws 7 box tops. ~ . ■ * ^ ' " 
BOTH 1 bottoss 
DVORS • iiddles 
•BAR prints the whole aenu bar. 
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.FRAKE builds the sain screen outline: 
and an espty eenu fear. 



the status header and 



.FRAME ( — 1 
PA8E .TITLE PASE . 
1 0 TAB 160 TOP ! ; 



0 \ Screen Support - Menu Bar Screen Layout 
I 

2 : 
3 
4 
5 
6 
7 



9^ 
10 
11 

12^ 

13 r? 

14 

15 
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CfiD is a function key routine that will accept a FORTH coasand 
fro* the keyboard and execute it^ 'returning/ back to PREP. 
Characters are echoed on the inputline (line 251 

>C0NTR0L sends a coeaand code and a coaiand string pointer to : 
the control task and waits for an actaowlegeaent aessage^ 
Displays an error tessage if not a positive ack.- s 

HTHDCTL sends a couand to the control task and redisplays' the 
start/stop and pause/continue eenu fields to show new coasand 
selections. ( The cosoands depend on the current run status) 

ST/STP is the start/stop aenu couand, either starts or stops a 
tethod. 

P3/CNT pauses a running tethod or continues a paused tethod. 



0 
1 

r 2 
5) 3 
' f 4 
5 
6 
7 
8 
9 

18 
11 



- \ Screen support - ST/STP/PAUS/CONT and coMon Menu Labels 

\ : >CQKTRGL (an — ) T0C0HTR81 SEND.KSS 

V - FROM CONTROL KSBSAIT 1 ACK « NOT IF .ERROR ELSE DROP THEN 



ST/STP ( - ) NULL STRT/STDP TO tONTRCL SEND.KSB 
PS/CHT ( - ) NULL PAUS/COKT TO CONTROL SEKD KS6 " 



KH1CHSTATE' ( — n ) RUNJTATUS 9 \ ' ' 
C RUNBIT PAUSEBIT OR 1 LITERAL' AND V"* 5 
SH0-C0NTR0L ( - ) 
DUP Fnia - NOT ; ' (? 

IF 0 CELLFLB ! THEM .C&L 1 CELLRB ! ; 

12 VARIABLE LASTSTATE 

13 : NEMSTATE? I - ) 

14 NHICHSTATE LASTSTATE 3 s NOT KENU-OK? 9 AND 

15 IF 8 SHQ-CONTRQL I SHQ-COKTRQL THEN ; 



o S 7 
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0 \ Screen support - ST/STP/PfiUS/COHT and cotton Kenu Labels 

Use EKPTYCL for any undefined tenu field. • j . gHPiycL .F* • # H f * : \ eipty cell 
^KELPTXT shows the help coiaand field. 2 

3 : HELFTXT .F g HELP * .H* 0 
HHICHSTATE returns status of tethod «=idle. I=pause, 2=runnino 4 

5 : STRTTXT ( - J KHICH5TATE DUP L'ASTSTATE ! 

TvT u 6 IF .F* STOP • ♦H" Stop Running' 

-iK, mi shows the STAR? or 5TGP cowand depending on current run 7 ELSE -.F' START ■ 

5Utus * 6 .H' Start Preparation Procedure* THEM j 

9 

t 10 : PAU3TXT ( - ) NHICH3TATE DUP LASTSTATE ! 

PnUatTXT shows PAUSE, blank or CONTINUE tenu coaiand depending II B CASE IF EKPTYCL 

on run status, 12 ELSE 1 CASE IF .F' PAUSE ■ 

13 .K* Suspend procedure operation teiporarily' 

14 ELSE DROP .F* CONTINUE ' 

15 .H 1 Continue running procedure* THEN THEN ; 
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XP.ST is used after expect. Siailar to RESET in FORTH which' 
is un-findable. 

INPUTTXT gets a text string frw the keyboard and returns the 
address of the counted string (count in first byte). 

iXTrRunrl is yirni the aJuicss of a counted string to type as a 
user proipt on the inputline.' The address of the input string, 
is returned. 

KEYPRGHPT types a given proapt string on the aessage iine-and 
awaits a keystroke. It clears the proipt and returns the key. 

YES? returns true if user typed a T or 'y\ false otherwise. 

.ERROR types an error string (counted) on the tessage line. 
.MSG types a (counted) aessage string. 



\ Screen Support - User Input / Output Hords 

: IRST 8 BLK ! 6 >IN ! CHT C9 CUT 1+ C! ; 

: INPUTTXT ( — a) PAD 72 BLANK S3 5 S3 tEIPECT XRST 

1 KGF.D DUP tt I* PAD SNAP <CK0VE PAO ; 
: TXTFROBrT ( ap — ai 1 MNFUTLIHE COUNT J TYPE ( proipt) 

INPUTTXT 24 ICLIKE ; 
s KEYPEQHPT ( a — c ) HNPUTLINE COUNT ITYPE KEY 
24 tCLlNE ; 

: YES? < a — U KEYPR0I1PT OUP 121 * SNAP 8? = OR- ; 

: CLRK58 ( - I KSBOH? i IF 28 tCLIKE & HSSOH? ! THEN ; 
: .HSG ( a - ) CLRKSG >K36LINE 33 SWAP CENTERED I KS8CN? ! ; 
: .ERROR ( a - ) .KSS ; 
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8 \ Screens Support - Input Words 
i HEX 8CS CONSTANT ESC 



CLEN? Returns true if the naie length is 8. ' 

ESC? Returns true if the escape key was the last char typed. 

LEGAL? Returns true if all characters in naie are legal, 

FILENAME proipts the user with the given string, and processes 
his input. If return is typed with no chars, or the esc key 
is typed with any input, false and no input is returned to 
caller. If any non-legal characters are found, an error isg 
is displayed and user is re-proipted for input. A legal input 
will return the address of the counted input string and true. 



2 : 6LEK? 

3 : ESC? 

4 ; LEGAL? 



5 
6 
7 
8 
9 
18 
11 
12 
13 
14 



00 I 



( a 
( a 
( a 
U 



— t ) 

— t ) 

— t ) 



a 8* i 

OUP « 
TRUE SNAP 



C3 ESC = ; 
COUNT OVER ♦ 



SNAP ( 



21 7F NITHIN NOT IF DROP FALSE . THEN 



t a+n a 
LOOP : 



FILENAME 

BEGIN 

OUP TXTPROMPT 
DUP8LEN? IF 
OUP ESC? IF 
OUP LEGAL? IF 
DROP ( input) 

AGAIN ; 



( « — 'na t 3 M 



20RO? FALSE EXIT THEN 
2DR0P FALSE EXIT THEN 
SNAP DROP TRUE EXIT ■ THEN 
t* Illegal naae! Retype' .ERROR 



BELL 



IS DECIMAL 



u £.1 a a^o 
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6 \ Screen Support - Fake screen displays XX TEKPOnARY tt 
1 

These definitions are being teaporarily used to display 2 328 CONSTANT DUI1WYSCREEKS 

siiuUUd •screens' until actual screens are built. 3 ClfiiilYSCREEHS COHSTAHT STSBLK 

4 DUWiYSCRtEKS I* CONSTANT HTHDSUT . 

5 DUtttSYSCREEHS 24 CONSTANT PRTRBLK 

6 DUffliYSCREENS 3 ♦ COKSTAHT SYTHBLK 

7 DUNHYSCREENS .4 ♦ CONSTANT FLRBLK 
8 

9 : PSTATS STSBLK BLK>SCRH 5 \ fake status 
IB : PHTHD HTHBBLK BUOSCRN ; \ " tethod 

11 : PRPRT PRTRBLK BLK>SCRH ; \ 9 print 

12 : PSY3T SYTHELK BLOSCRH ; \ ■ systea 

13 : PFILR FLRBLK BLK>SCRN ; \ ■ filer 
H 



391- 70 

6 \ Screen Support - Coward Interpreter 
DIB is a function key routine that Mill accept a FORTH coaaand 1 
fro* the keyboard and execute it, returning back to PREP. 2 : Cffi? ( — ) 

Characters are echoed on the input line (line 25) 3 CLRflSG 

4 6 24 62 8 KINDS* (PASE) 8 Z TAB 

5 QUERY INTERPRET KCRK 3IKBQJ! ; 
6 

7 
6 
9 

«# 

10 

[\ s the couand selector across the eenu. 

12 

13 

14 

15 
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8 

1 HEX CODE (NAT) I attribute n a - I 
NAT is used to eodify the attribute of screen text without 2 K POP i PC? 2 PGP . 
iodifying the contents of the charac 3 I PUSH K I HOV 

4 DISPLAY LDA 8 ES LSS 

5 BES1K 

6 26 C, ( ES:) LOBS 

7 2 HI 8 HI HOV B STOS 

8 LOO? 

9 8 IS SS8 8 ES LSS I POP 
18 NEXT OECIHAL 

U : NAT I attribute inl coll n - I 

12 ROT 88 t ROT * 2t (NAT) ; 

13 

14 

15 
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Pf.EVSCR puts the link to the previous screen into a screen 
descriptor. This used after the 2 screens are defined to 
resolve the forward references. PREVSCR THIS PREV 

This screen resolves the forward references in the screen link 
pointers, load this blocV after all the screens have been 
loaded. Add the links for all screens that are defined in 
the systei. These links ere followed when the user exits 
a screen. The links point to the screen to 'return* to. 
Mote that the Status screen is the hote screen, and points 
to itself. 



e \ Screen Support - Resolve forward references in Screens 



PREVSCR 1 — 1 • 2* ■ SHAP ! 



5 PREVSCR 

6 PREVSCR 

7 PREVSCR 
B 

FORGET PREVSCR 
EXIT 



this screen 
STAT SCR 
FILER SCR 
PRUT SCR 



previous screen 
STAT SCR 
STAT SCR 
STAT SCR 
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as 



8 

1 
2 
3 
4 
5 
h 
7 
8 
9 

IB 
11 
12 
13 
14 
15 



407 
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8 \ Status Screen - Load Block 



.1 

S.FHLOAD causes the control task to load a function file. 2 
It proopts the user for a filename and sends a load coaiand and 3 
the fiier^e pointer to the control task. 4 

5 



SSTEF C 1 HULL 1STEP TO.CQKTRQL SENO.HSG ; 

S FNLOAD ( - ) I* File to Load?: ' FILEHAKE IF I* 
f'kLCAD TO CONTROL 3EHD HSG THEN ; 



7 73 74 THRU . 

8 EXIT 
9 

is 
n 

12 
13 
14 
15 
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8 \ Status - Henu label procedures 

1 ; PRKTTXT ,F' Print ' 

2 .H' Print Utility' ; 

3 : KTHDTXT .F - Methods ' 

4 .H' Create or fiodify a Kethod' ; 

5 : LQADTXT .FV Load • 

6 .H" Load a Kethod to Run* ; 

7 : SYSTXT .F 1 Systea ' 

8 .K" Access to core Systea Functions" ; 

9 : FILETXT .F" Filer ' X Kanaqe files' ; 

18 : 1STPTXT .F' ISte? ■ .H" Step Through the Procedure 

11 : EETRTXT .F' Editor • .H 1 Edit Text Files' ; 

12 EXIT 
13 

14 
IS 
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8 \ Status - Screen Definition 

1 : STAT.PROC 

2 STAT-OH? HOT 

3 IF- CLS STAT-OM 5TATU5-BKS THEN j 



4 








5 \ fi 


proc 


text 


char 


6 DEFSCKK STAT SCR 


STAT PRGC 


7(8) 


ST/STP 


STRTTXT 


0 


8(1) 


PS/CHT 


PAUSTXT 


8 


9(2) 


SSTEP 


1STPTXT 


1 


18 ( 3 ) 


S.FKLOAO 


LQADTXT 


1 


11 ( 4 ) 


FILER.SCft 


FILETXT 


f 


12 ( 5 ) 


PRKT SCR 


PP.HTTXT 


P 


13 ( 6 ) 


FEDIT 


EDTRTXT 


e 


14 f 7 1 


Hap 


KELPTXT 


h 


IS 
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F.DEI proepts the user for the filenaie to delete and deletes 'it 
if possible. 



FJHT Will format a diskette in drive 8. INITIALIZE actually 
formats the disk (erasing any data), IHITBAT initializes the 
block allocation table, and IMTDIR initializes the directory. 



0 \ Filer Screen - Load Block 
1 

2 : F.DEL (-IT File to Delete?: ' FILENAKE IF U FDELETE 

3 IF V File not Found 1 .ERROR THEK THEN /SCREEK EXECUTE 
4 

5 33 4 ♦RIVE LOAD \ Load disl: initi'al (ration 
6 

7 ? F.FflT ( - ) V Erase a!! data on diskette? lWRJ a YES? IF 

8 V Insert' diskette in drive 0. Press return tthen ready - 

9 KEYPROilPT 13 = IF V F0RKATTIH8..." .KSB INITIALIZE 
18 IHITBAT IHITDIR FLUSH V Done" .HS6 THEK THEN j 
1! 

12 7? B6 THRU 

13 BIT 
14 

15 
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8 
1 

2 : 

3 : 

4 ; 

5 : 
6 

7 

e 

9 

18 

II 

12 
13 
14 
IS 



\ Filer - Menu Labels 

RKRTXT .F' Renate • .H B Change a File Haie' j 
CPYTXT «F* Copy ■ .H* Copy Qne File to Another' ; 
DELTJT .F* Oelete ' .H' Delete a File* ; 
FRKTTKT .F' Foriat ' .H' Rake a Blank Disk for Files* ; 
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8 \ Filer - Screen Definition 

The filer screen displays the disk directory. 1 : FILER PROS 

2 3TAT-DFF CLS 1 DETAILS ! SH05J0IR 0 DETAILS ! ; 
3 



4 \ « 


proc text 


char 


5 DEFSCRK FILER.SCR 


FILER PROC 


6(B) 


ST/STP STRTTIT 


8 


7(1) 


PS/CNT PAUSTIT 


8 


8 (2 ) 


BELL RHHTXT 


r 


9(3) 


BELL CPYTIT 


c 


IB ( 4 ) 


F.DEL DELTXT 


d 


11 ( 3 ) 


FJttT FRHTTIT 


f 


12 < 6 ) 


BELL EMPTYCL 


8 


13 < 7 ) 


HaP HELPTXT 


h 


14 






IS 
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fUTBUSY Nhen true, the printer is busy and can't be used by. 
another task. 

(FPRIKT) prints all the blocks in the currently open file. 
(DPRINTJ prints the disk directory on the printer. 

DC.PRT sets the printer busy Hag and executes the given 
print routine. It waits for printer idle before returning. 

FPRiNT proipts the user for a filenaae, and sends it to the 
printer. 



DPftlKT ouerys the user before printing the disk directory on 
the printer. The directory is printed in detailed foriat. 



0 \ Printer Screen - Load Block 

1 VARIABLE PRTBUSY 

2 : (FPRIHTI TYPIST ACTIVATE FL1ST FALSE PRTBUSY » STOP ; 

3 : (DPR1KT) TYPIST ACTIVATE .DIR FALSE PRTBUSY ! STOP ; 
4 

5 : DO PP.T ( a — ) TRUE PRTBUSY'! 

6 I* Busy...' .HSS EXECUTE BEGIN . PAUSE PRTBUSY * 8= UNTIL 

7 V Done' ;«3S ; 
8 

9 : FPRIMT V Enter File to Print: ' FILENAME IF !♦ FQPEK 

18 IF P File not found' .ERROR EXIT THEN VI (FPRIHT) 

11 DD.PRT FCLOSE THEN ; 
12 

13 : DPftlKT V Print the disk directory? (Y/N>' YES? IF 

14 DETAILS 3 ! DETAILS ! C'3 (BPRINT1 DO.PRT DETAILS ! TKEK j 
' 15 IB? UB THRU 
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S \ Printer - tisnu Labels 
1 

Here are the coaaand labels that appear on the printer screen. 2 : PDIRTXT .F' Directory* -H' Print File Directory' ; 

3 : PFILTXT -F' File ' .H' Print a Disk File' j 
4 
5 
6 
7 
8 
9 
IS 

11 
12 
13 
14 
IS 
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' 0 \ Printer - Screen Definition 
1 : PRNT PROC STAT-GFF CLS ; 
2 

3 \ f I proc text char 
.. . 4 DEFSCRK PRKT JCR PRKT.PRQC 

" : 5 ( 8 f ST/STP STRTTXT 8 

6(1) PS/CNT PAUSTXT 6 

7(2) DPRINT PDIRTXT d 

8 13) FPfilKT PFILTXT i 

9(4) BELL EHPTYCL f 

18 ( 5 ) BELL EHPTYCL 6 

11 ( 6 ) BELL EHPTYCL 8 

12 ( 7 ) HELP HELPTXT h 
13 

14 
15 



ISTHaP is the «ist screen nuiber of the first helpscreen. * 
.♦HELPS is the nueber of defined help screens. 
HELP ARRAY contains help screen nuabers for each aajor systea 

screen. The 8th entry is reserved for general systee help. 

Each of these help screens is a 'chapter' heading, with furthei 

helpscreens available by using up or down arrow keys. 
SUBJECT points to one of the chapter screens in HELPARRAY. 
KcLPSCR is the current help screen I, 
BLK>SCR displays a given disk block as text. 
HELPSUBJ selects a help chapter based on given screen number. 
FIKDHELP gets current screen and selects the right help chapter. 
♦SUBJ advances *-n chapters fro* current chapter and shows help.' 

Used for paging through help subjects. 
♦KSCR advances *-n screens froa current help screen. Used to 

•flip' pages of help screens. 
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6 \ Help Screens - HELP Screen support 

1 318 CONSTANT ISTHELP 

2 9 CONSTANT iHELPS 

3 CREATE HELPARRAY 

4 6 ( reserved) C f 4 ( filer) C, 7, ( print) C, 0 ( status) C 

5 VARIABLE SUBJECT 

6 VARIABLE HELPSCR 

7 s BIK>SCRN I scri — ) CL3 8 8 TAB U 0 DO 16 TAB OUP 

8 BLOCK I 64 t 4 64 >TYPE LOOP OROP ; 

9 : .Hap ( — ) HELPSCR 3 ISTHELP ♦ BLDSCRN ; 

ID : HELPSUBJ ( scrt — ) OUP SUBJECT ! HELPARRAY ♦ C9 HELPSCR ! 

11 : FIMDHELP ( — ) SCRI C3 HELPSUB.J ; 

12 \ : *SUBJ ( n — 1 SUBJECT 3 ♦ 8 KAX 4SCRHS 3 H1K HELPSUBJ 

13 \ .HELP ; 

14 ! 4HSCR ( n — 1 HELPSCR 3 ♦ 8 MAX IHELPS «IN HELPSCR ! .HELP 
.15 186 187 THRU 
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8 \ Help - Function key table 



H.HOKE returns user to original her? screen keyed where he is. 

H.PGU? pages to next help subject 

H.P6DH B previous 

HJfP pages tc next help screen 

H JW " previous ■ 

HELPKEYS is the function key table for help screens. 



1 

2 : 

3 \ 

4 \ 

5 : 

6 : 
7 



H.HOKE FIMDHELP .t€LP 
: H.P6UP 1 +SUBJ ; 
: H.P60N -1 4SUBJ ; 
H.UP 1 +HSCR ; 
H OK -I 4K3CR ; 



6 CREATE KELPKEY5 



9 < 68) 
18 ( 84) 

11 ( 88) 

12 ( 80 

13 ( 98) 

14 ( 94) 

15 ( 98) 



8 
8 
8 

H.HOKE 
0 
8 
8 



6 
8 
8 
8 
0 
8 
8 



8^ 
8 
0 

H UP 
8 

H.DN 
8 



6 
8 
8 
8 
8 
8 

SNAPSHOT 
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HELP displays the helpscreen keyed what the user is doing 
<«hat systea screen is displayed), allows pageing through 
the helpscreens, and waits for undefined key before 
redisplaying current user screen. . . 



8 
1 
2 
3 
4 
5 
h 
1 
8 
9 

18 : 

11 

12 

13 

14 

15 



\ Help Screens - HELP 

HELPINFO SELECTION BOX 
• Help Keys: 



■Page 
Page 
This Subj 
Pr,int Scrn 
Exit Help • 



PgUP 
' PgDK 
' Hoie 

' : PrtSc 

HELP < - ) 
STAT-OFF 
HELPIIFO 

CM KELPKEYS 'FKEYS ! 
'FKEYS ! WORK KIHDOH 
'SCREEN * 6 'SCREEN 



CR 
CR 
CR 
CR 



KEKU-OFF 

KELPSIZE BOX FIMDHELP ,(€LP 'FKEYS 3 
BE6IK KEY -FUNCTION? UNTIL 

EXECUTE ; 
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This is the function Editor that is used to edit user defined* 
{unctions written in FORTH. It can also be used to edit any 
genera! text file, including parateter files and Method files. 

This editor is based or* the FORTH Inc. fucntion key editor found 
on Screen 72 of the Level 3 Source disk. It has been ecdified 
la use the output MindoMS of sasple prep, and uses the prep 
file systes for all disk I/O. 



15 
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8 \ Text File Editor - Load Screen 
1 

2 VARIABLE EDW V set true to exit the editor 

3 ' ' 

4 74 4 ♦DRIVE LOAD 

5 16 LOAD 

6 75 4 ♦OP.IVE tOAD 

7 17 22 THRU 
8 

9 
18 
11 
12 
13 
14 
15 
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\ File Editor - Function key table, cursor type 
CREATE 'KEYS 53 ALLOT 'KEYS 5fl ERASE 

: 'FUNCTION ( k - al 59 - 2t 'KEYS ♦ ; 
: :K < k) : LAST 9 3 CFA !♦ SKAP 'FUNCTION ! ; 
; FUNCTION ( !c> SUP 5? 84 S1THIN IF 'FimCTIGN •EXECUTE 
ELSE DROP THEM ? 



6 
7 

6 HEX CREATE CT 780? , ( cursor type) 

9 
10 
11 
12 
13 
14 
15 



CODE CHOICE CT 1 NOV i HI 1 ICH8 6 1 CT NOV KEXT 

RGP THEK ; 
: +CURS0R ( ai 'CURSOR CT 9 cursor ; 
: -CURSOR ( a) 'CURSOR 788 cursor j 
: BLINK 8888 CT ♦! ; 
DECIMAL 
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UD is the only reference to disk l/Q. le eessages whenever 
of BLOCK, but deals only with file relative block nutbers. . 
LAD returns the address of the nth line of the current block, 
fetching it free the disk if necessary. 

FXEL and any other word which todifies the text on the screen 
calls FUPDATE to iark the current disk block as lodif ie4. 
The FUPBATED block will ultiiatly be written out to the disk 
*hen that block's buffer needs to be reused by BUFFER, either 
fey accessing other disk blocks, or by the file CLOSE operation 
(then exiting the editor. 

The directory and disk allocation inforeation are updated «heo 
the file is closed. 



\ File Editor - Line operations 



1 

2 

3 

4 

5 

6 

7 

8 

9 
18 
11 
12 
13 

14 65 :K -LINE 

15 06 :K -BLOCK 



C/L t SCR 3 FBLOCK ♦ : 
LIKE LAO ; 
CLAD COL ♦ ; 

C/L COL - ; : LINES ( 
DUP LAD C/L BLANK FUPDATE 8 



LAD ( n - a) 
CLAD ( - a) 
<ADDR ( - a) 

COLS ( - n) C/L COL - ; : LINES ( - n) 
CLRL ( n) DUP LAD C/L BLANK FUPDATE 8 SKAP (60) 
C/L SPACES f 

•LINE <ADDR COLS >TYPE ? 

.BLOCK LINE LINES DUP IF !♦ THEN 8 DO DUP 8 GVER (60) 
LAD C/L >TYPE l« LOOP DROP j 



xHL ( n o) 
HLDN ( n) 
HLUP ( n> 



SJJAP LAD DUP ROT ♦ C/L <CKOVc FUPDATE ; 
C/L xHL ; 
C/L NESATE iHL \ 

<ADDR COLS BLANK FUPDATE COLS SPACES ; 
-LIKE LINE LINES 8 DO !♦ DUP CLF1 LOOP 



DROP 
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EKPH.QK turns on both emphasised and double-strike eades. 
ErtPH.OFF resutes nortal printing. 
1 KXT.STATE points to the opposite print lode routine. 
CUR.ATR stores the current printing attribute. . 

NORK causes printing to be nortal brightness, (the 256 is 

replaced by the address of BRIGHT below) 
EH1SHT causes printing to be ee-phasizeti and double struck. 
6iven the nest char's attribute, BRIGHTNESS will flip the ; 

printer into the proper print tode if the attribute is 

different fro# the previous char's. 
.CHR prints a character, replacing a null «ith a blank. 
J.CKAR fetches the char and it's attribute froi the screen 

and prints it. Kote that screen i2<iory is in different segient 



e \ SNAPSHOT words 

1 MSG EKPH.OH 4 C, 27 C, 6? C, 27 C, 71 C, 

2 MSB EMPH.OFF 4 C f 27 C, 70 C, 27 C f 72 C, 

3 MSG UHDL.ON Z C, 27 C, 45 C, 4? C, 
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MSG UMOL.OFF 3 C f 27 C, 45 C, 46 C, 
VARIABLE CUP.ATR 

: NORM ( ~ ) 7 CUR.ATR ! ENFEOFF ONDL.OFF ; 
: EHPH ( — 1 112 CUR ATR ! UNDLOFF EKPH QN ; 
: UMDL ( — I 1 CUR ATR ! EHPH OFF UKDL ON ; 
: BRIGHTNESS '( atr — )" DUP 7 = 
IF KQRJ1 OROP 

ELSE 112 = IF EHPH ELSE UNDL THEN THEN ; 
: .CHR ( c — ) OOP 0= IF DROP 32 THEM EMIT 
: 9. CHAR I dadr — ) 

AND SWAP 256 / ( c atr) BRIGHTNESS .CHR 
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0 \ SNAPSHOT • screen printing utility 
1 

•LIKE prints the given line fro# screen teiory. Reverse video 2 : 1LIHE (1 — I 
chars will be eiphasized. 3 KORil 80 I 2t CUP 168 ♦ SNAP 00 I 11 3. CHAR 2 +L0QP 

4 

FULLSCR prints the entire screen. 5 : FULLSCR ( — ) 

6 25 6 CO CR I ILINc LOOP ; 
7 

(SNAPSHOT) is the cofiand to be executed by the printer task to 8 : (SNAPSHOT) ACTIVATE FULLSCR STOP ; 

print the screen contents. 9 
SNAPSHOT sends the coiaand froi the tercinal task to the printer 10 : SNAPSHOT TYPIST (SNAPSHOT) : 

task. * u 

12 
13 
14 
15 
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1 
2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
IS 



FORTH, Inc. Proprietary 01 JAN 1900 00:36 \ Sample Prep Ver 0.1 
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These aessage tokens are used to coaaunicate between the user' 
and the control tasks, Hessages sent to the control task 
consist of a coaaand token fro* this list, and a pointer to a 
* f riri»:-. 7>« t?«t string is use* to pass filenames to the file 
load ccaeands, and possibly to pass a FORTH coaasnd string to 
a (yet undefined) cosaand interpreter . All other coaaaands 
can send a NULL pointer. 

Each coiaand sent to the control task Hill be followed by a 
response token and a text string pointer indicating success or 
failure upon trying to execute the cossand. An ACK response 
Hill send a null pointer, which can be ignored; nhile a KADI 
response will send a pointer to an error eessage which should 
be presented to the user. 



6 \ Task Support * Message Tokens, load Block 

1 " 

2 \ Messages to control task: 

3 1 CONSTANT STPJ/STOP \ start or stop running' 

4 2 CONSTANT PA'JS/CGKT \ pause sr,continue running 
5 
6 
7 
6 
? 

IB 
11 
12 
13 
14 
15 



CONSTANT ISTEP \ do just one step 

CONSTANT KU3AD \ load a aethod file 

CONSTANT " .FNLOAD \ load a function file 

CONSTANT CTLRST \ reset the control task 

CONSTANT 1CTLCHDS \ nuaber of defined control coeaands 



\ Responses froa control task: 

\ 4? CONSTANT ACK \ positive acknoKlegeeent 

\ 83 CONSTANT NAK \ error! 

116 123 THRU 
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Each ■eessage' consists of a 8 bit token, and a 16 bit string 
pointer. 

SEHDJtSS Kaits until the aessage buffer is eapty and puts the 
given eessage in the buffer. The eessage is* taken by another 
task. 

GETJ135 reaoves any eessage i.n the given asssage buffer 

and espties the buffer to allow another sssssge to be placed. 
HSGNAIT waits for a sessags to appear and then returns it. 



1 18 

8 \ Task Support - Task Coaaunication words 
1 

2 CREATE TO.CONTROL 3 ALLOT \ .coaaand to control task 

3 CREATE FROM COSTROL 3 ALLOT \ response froa control task 
4 

5 : SEHD.KS6 ( ptr n a — ) BEGIN PAUSE DUP Ci 8= UNTIL 

6 SXAP OVER C! H ! ; 
7 

B:B£TMSS ( a — ptr n) DUP >R 1+ 3 I CJ R> 3 -ERASE j 
9 

18 : HSSHAIT ( a — ptr n) BEGIN PAUSE DUP C3 UNTIL SET KSB 



The first byte of these asssage structures contains a eessage 
code (8 if no aessage waiting), bytes 1,2 are pointer to string. 11 
TO.CONTRQL contains a cossand for control if byte 6 not 0. 12 : CTL_AB0RT 
FROH .CONTROL contains the response to a coaaand if byte 8 not 8. 13 1 FROKJttNTRQL SEND KS6 ASORT 

14 

15 
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CI contains screen offset for typing to screen. 

SCTAB positions CI to line, col of screen 

>CRT -types' text to the screen without using FORTH' s output 

routines, (useful for background tasks that dont have output 

routines defined.) Text is in inverse video. 
HERS saae as >CRT but in noraal video. 

{f Start nuaber foraatting for output. 
Foraat buffer is belon the TOP user variable (ref FORTH scr 75) 
l> Finish nuaber foraatting, gets address, count. 
:ea Converts one deciaal digit and one ainutes digit <08 - 59) 
(ains) Foraats and prints the given value in the following 
foraat: 18:32 Used to display the tiae of day. 



1 19 

8 \ Task Support - Background task CRT printing 

1 VARIABLE STAT-ATTR HEX 786 STAT-ATTR ! BECIKAL 

2 : SCTAB ( 1 c — ) SKAP 83 t ♦ 21 CI I ; 

3 : >TER« ( adr u - ) 

4 2% C# i OVER CI ♦ '. DUP ROT ♦ SNAP DO 

5 DUP Ca STAT-ATTR ? OR 1 CRTSE6 E! 1* 

6 2+100P DROP ; 

7 HEX 

8 : UND>TERH 

9 STAT-ATTR 9 >R 188 STAT-ATTR ! >TERH R> STAT-ATTR ! ; 
18 DECIMAL 

11 \ : SEXTAL 6 BASE ! ; 

12 : (I ( - ) TOP PTR ! ; 

13 : l> ( d — a c) 2DR0P PTR 3 TOP OVER - ; 

14 \ : :88 DECIMAL 1 SEXTAL I DECIKAL 58 HOLD ; 

15 \ : dins) ( n — I 6 (I :88 I I 1} UNO/TERN ; 
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'' C> ^outines h6 CqUivaIent ol WIT for ^ sks Hilh0 "t output 



Cft.>Taj is the equivalent of CENTERED for tasks without 
output rou ines (CENTERED is defined in Hindoo). TM S 
ver Sl0 n auto.aticaIly truncates strings that are to 



6 

i 

2 ! 

3 
4 

5 : 

6 

7 

8 

9 

10 : 

11 

12 

13 

14 

13 



\ Task Support - Background task CRT printing 



OTEftH 

'S 1 >TERK DROP ; 

SDTEfiH 
?0UP 

IF 6 DO BL DTERH LOOP 
THEN ; 

CEWTHERH 

2DI/P « KIN OVER C! 
2BUP C3 - 71 SPHERil 
DUP COUKT HERft 
C3 - DUP 2/ - SP>TERH ; 
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These variables are used to iaintain the syste. status 
»« or.a ion. For each itei in the syste. that needs it's 
status displayed, there Hill be a variable that indie e it's 

affects the itn (such as turning a relay on); ther- -ill M«o 
or either the sUtus task ("for talus 
header information) or the status screen updating so Je 
th. chains he currently displayed state of the U e In 

the display state variable) if they dont agree. Thi* al h 
or asoaewhat speedier updating loop, since only one 0 t*o 



1 

2 
3 
4 
5 

7 
8 
? 

IB 
U 
12 
13 
14 
15 



\ Task Supoort - Systea Status Variables 

CREATE RELAYS 3 ALLOT RELAYS 3 ERASE \ Relays 1-24 
CREATE OUJRELAYS 3 ALLOT 0U8ELAY5 3 ERAS 
CREATE RLYDEFAULTS 3 ALLOT RLYDEFAULTS 3 ERASE 



VARIABLE PBUSY 
VARIABLE' PRATE 
VARIABLE PVQL 
VARIABLE POIR 



VARIABLE 0LDP3USY 
VARIABLE OLDPRATE 
VARIABLE OL0PV0L 
VARIABLE OLDPDIR 



\ I = busy 
\ Putp flow rate 
\ Putp volute 
\ Puip direction 



VARIABLE OLOTIHE \ previous ti.e of day 

VARAIBLE CLDSTATUS \ previous run status 

VARIABLE CHAH5EHETH0D V true -hen a ne* .ethod is loaded 

CREATE HEIHODBUF KKLEM ALLOT V current «thod file naVe 
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«ore systei status inforaation variables. 



\ Task Supoort - Systei Status Variables 



6 
1 

2 CREATE RV-STAMBL 8 ALLOT \ Rotary valves 1-4 

3 RV-STAT-TBL 8 ERASE 

4 CREATE ^DEFAULTS 4 ALLOT \ Rotary valve initial positions 



3 4 RV-DEFAULTS 
6 8 RV-OEFAULTS 2 
7 

8 VARIABLE MXTIHE 

9 VARIABLE MXPHR 
IB VARIABLE MXOUTY 
U VARIABLE MXBUSY 
12 

13 VARIABLE KFKS6 

14 VARIABLE FPKS6 
15 



C! 4 RV-OEFAULTS 1 ♦ C 
C! 6 RV-DEFAULTS 3 ♦ C! 



VARIABLE OLDI1XTIKE 
VARIABLE OLOHXPHR 
VARIABLE 0LDI1XDUTY 
VARIABLE GLOflXBUSY 



Nixing tiie 
Itixer poHer setting 
Hixer duty cycle 
1 = iixer is on 



VARIABLE GL0KPR36 
VARIABLE 0LDFPKS6 



Method tessage pointers 
Function aessage pointers 
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fcUNJTATUS Contains bits which indicate the state of the 
control task. 

The loading bits are used to recover fraa errors during a 
load operation. Normally, the load operation is cotpleted 
and an acknoxlegetent is returned to the user task. But 
if an error occurs, the control task loop is exited and re- 
entered by the error handler. These bits are used to ■ 
determine how to recover froa the error and to send an 
appropriate error eesss^e. 



0 \ Task Supoort * Systei Run Status 

1 HEX 

2 VARIABLE RUN STATUS 



3 \ Bits in RUHJTATUS: 

4 1 C0M3TANT RUN8IT 

5 2 CONSTANT PAUSEBIT 

6 4 CONSTANT BUSYBIT 

7 6 CCFISTAHT STEPBIT 

8 10 CONSTANT FLQADBIT 

9 26 CONSTANT HLOAGBIT 
13 DECIMAL 

SI 



\ control task status 

\ true when running 

\ true when in pause 

\ true when ending run 

\ true when in single step code 

\ true when loading functions 

\ true when loading a eethod 



12 
13 
14 
15 



RUNBIT PAU3EBIT BUSYBIT STEPBIT FLQADBIT + ♦ * 4 

CONSTANT IOLEBITS \ use this aask to test for idle- 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

18 

11 
12 
13 
14 
IS 
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8 
1 
2 
3 
4 
S 
6 
7 
8 
9 
18 
11 
12 
13 
14 
IS 



FHRrTW. Tnr Prnnri«* w , 
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6 \ Status Task - Load Block 
1 

2 Ml 144 THRU \ Relay status update routines 

3 147 148 THRU \ Rotary valve status update routines 
^ 150 152 THRU \ Mixer status update routines 

5 153 155 THRU \ Puip status update routines 

6 156 158 THRU \ Prooraoable aessaoe update routines 
7 

6 127 129 THRU \ Rest of status task 

9 EXIT 
IB 
11 
12 
13 
.14 
15 



0 \ Status Task - status header strings 
1 

2 \ These routines return the address of string for status header 

3 : PSE.ST V PAUSE ■ ; 

4 : ROYJT V READY ' ; 

5 : RUH.ST t" RUKNIN6 ' ; 

6 : SS.ST t 1 S1KSLE STEP' ; 

7 : STEPST t* STEPPING ■ ; 
E : BSYJT V BUSY ' ; 
9 : ERRJT I' ERROR STATE' ; 

18 : LOB ST V LOADINS ' ; 

11 

12 

13 

14 

15 



449 



128 



SHQUCLQCK displays the tite of day on the status header. 
SH0«TATUS displays the run status in the header. 



STTIHE updates the clock if current tite is different froi 
old tiie. 

STRUN updates the run status if current status is different 
fro* uhats displayed. 



8 

1 \ 

2 : 
3 

4 
5 
6 
7 

e 

9 

16 

1! 
12 
13 

14 \ 

15 \ 



\ Status Task - Status Header Updates 



: SH08CLQCK ( n 
SHOKSTATUS ( n 



( n — 



1 



) G 43 SCTA3 (iins) ; 
I0LEB1TS AKD 

8 CASE IF P.DY ST ELSE 
£ RUNS IT LITERAL 3 CASE IF RUN ST ELSE 

C RUKBIT PAUSEBIT OR LITERAL ] CASE IF PSE ST ELSE 
t RUNBIT STEPBIT OR LITERAL ] CASE IF STEPST ELSE 
C RUHBIT PAUSEBIT STEPBIT 

OR OR LITERAL 3 CASE IF SS ST ELSE 
C BUSYBIT LITERAL 1 CASE IF BSY ST ELSE 

t FLOAOBIT LITERAL 1 CASE IF LD6~ST ELSE 

DROP ERft~ST 
THEN THEN THEM THEN THEN THEN THEN 
8 12 SCTAB COUNT UKD>TERM ; 
: STTIKE 9TIHE OLDTIttE 3 • IF HIKE CUP . 
OLDTIIE ! SHCWIOCK THEN ; 
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SHftKMrTunn n tk * ' B V Status Task - Status Tasl Loop 

SHuKHETHOD H the first char of the current wthad file na«e 'is 1 

2a*i "lli'I^tf^JiTSSid. 11 *" ^ UPdaUd ^ C ° ntrDl - 5 ^.^ m J^-^™*- * ' IF RUN - STATUS * m 

STHETHD updates the currently selected setftod na»e or. 
the status header if the naee has changed. ■ 



STATUSHEA3ER updates information at the top of the screens. 
Ti«e, runtiie, eethod naee. 



RMIftS is the tain status task loop. It runs every .1 sec. 



3 OLDSTATUS ! SHOKSTATUS THEN , 

4 : SHOHilETHDD fl 62 SCTAB flETKODBUF 3 IF nETHBDBUF 

5 ELSE V no tethod 1 L« THEN' NKLEH UN0>TERH ; 

6 : STHETHD CHAN6EHETH0D 3 IF FALSE CHAHSEKETHOO ! SH0HHETH00 

7 THEN ; ' • 
B 

Y : STATBSHEADER ( - ) 

18 ( PAUSE STTIKE ) PAUSE STRUM PAUSE STHETHD ; 

11 : OEVICESTATUS ( - ) 

12 STRLYS STRVLVS STPUttP STRIKER STPMSS ; 
13 

14 : RUNNING ACTIVATE 2BB3 KS ( wit for initialisation) 

15 BESIM STATUSHEABER DEVICE3TATU5 A8AIK ; 
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8 
1 
2 
3 
4 
5 
6 
7 
B 
9 
IB 
11 
12 
13 
14 
IS 
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0 
1 
2 
3 
4 
5 
6 
7 
8 
? 
IB 
11 
12 
13 
14 
IS 



r _ _ 
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HW9C is a table of bit lasks, indexed by a nu.ber hot 
B to /♦ 

RLYBYTEI indicates Mhich byte in the relay tabic we are 
r currently indexing for status display, 

F1YBVTO takes a table address fros the stack (either old 
a or oe* status table) and returns the currently indexed ' 
status byte froi this table- 

BETfiASK* returns a bitiask given a bit nuiber (2-7) on the 
stack* 



\ Status display - relay status updating - basic tools ■ 
HEX 

CREATE 6 1 MASK 1 C f 2 C f 4 C f 8 C, 18 C, 20 C, 40 C, Be C, 
DECIMAL , ' 

VARIABLE RLYBYTEI 
ASSEMBLER BEGIN 

« POP H 8 AOD 8 H MOV 
8 8 SUB N ) 8 MOV B 
8 PUSH NEXT 
CODE RLYBYTE5 

RLYBYTEI 8 MOV DUP JHP 
CODE BITfiASK? 

BITKAS3C t 8 MOV JKP 



7 
B 
9 
16 

u 

12 
13 
14 

15 FORTH 
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>RLY-DISP positions the cursor at the beginino of the status 1 * ^ ****** " ^ St ^ 5 " display irra ' 

display region for the indicated relay nu.ber on the stack. 2 : >RLY-D!SP In-) 



3 12 /MOD 21 t 36 ♦ SHAP 6 ♦ SWAP SCTAB ; 

5 VARIABLE STAT-FLAG 

6 : STAT-GN? PAUSE STAT-FLAG 3 ; 

7 : STAT-OM 1 STAT-FLA8 ! ; 

8 : STAT-GFF 6 STAT-FLAG ! j 
? 

18 
U 
12 
13 
14 
15 
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IBNELff displays the status of relay n as indicated by 
the on/off value on the stack (1 = ON). 

SHQ-I-filY is the sate as DISP-RELAY, but n indicates a relay 
relative to the currently indexed status table byte. 

SHM-RLYS takes a bitiask froi the stack, and displays all 
relays fro* the currently indexed status table that are 
indicated by this bitiask. 



1 
2 
3 
4 
5 
6 
7 
B 
9 
18 
11 
12 
13 
14 
13 



\ Status display - relay status updating - display xsrds 
! D ISP-RELAY ( on/off n - ) 
DUP >RLY-DISP 21 SXAP 

IF 14 THEN 
2t CD-HAME-T3L ♦ 9 CQUKT >TERK ; 

SH0-1-RLY ( on/off n' - ) 
RLYBYTEI 9 B t ♦ DISP-fiELAY 

SHO-B-RLYS ( bi - ) 
RELAYS RLYBYTE3 
8 8 DO 

OVER t BITHASK? m ?D0P 

IF OVER AKD I SHO-l-RLY 
THEN 

LOOP 2DR0P : 
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CHANGED-RLYS? displays are relays in the currently indexed 
status table byte that have been lodified sins* last 
displayed. 

STRLYS displays all relays that have been icdified sinse 
they Here last displayed. 



a 

1 

** 

L 

3 
4 
5 
6 
7 
6 
? 
16 
11 
12 
13 
14 
15 



\ Status display * relay status updating - top level 

CHANGED-RLYS?" ( - > 
RELAYS RLY8YTE3 Du7 OLDRELAYS RLYBYTE3 
XQRDUP 

IF SKO-S-RLYS OLDRELAYS RLYBYTEI 3 ♦ Ci 
ELSE 2DR0P 
THEN ;'\ 

STRLYS ( - ) 
STAT-QN? IF 
3 C 00 

I RLYBYTES ! CHANGED-RLYS? 
LOOP 
THEM ; 
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MSDPORTI converts * position nuiber (1,4,7.181 to a port ■ 
: nuiber (1,2,3,0. 

>RV-01SP positions the cursor at the beoinino of the display 
regior. for the requested valve nutier on the stack. 

OISF-fiV displays the status of the requeted rotary valve.. The 
value given on the stack In) is twice the value of the 
valve nuaber. 



UPS-RV-5TAT updates the status variables for the requested 
rotary valve. The value given or. the stack (n) is twice 
the valui of the valve nuiber. 



8 \ Status display - rotary valve updates - basics 

1 : POSt>PORTt ( n - ) 

2 3 /MD ♦ ; 

3 : >RV-DISP ( n - I 

4 3 t 8 ♦ 28 SCTAB : 

5 : GET-RV-STR ( n pi - a ) 

6 DUP 8= If 2CP.0P I" Hot Present ' EXIT THEN 

7 nirp "? / , 
« wwr <j \ 

8 IF K2t SWAP 4 14 &SE 3-21 SWAP 4 ♦ 4 t * 

9 THEM RV-NANE-TBL ♦ 3 ; 
18 : DISP-RV ( n - ) 

11 DUP II SWAP OVER >RV-DISP 

12 RV-STAT-TBL ♦ C5 POSOPORTt 

13 GET-RV-STR CCUHT >TEP.« ; 

14 : UP9-RV-STAT ( n - ) 

15 DUP RV-STAT-TBL ♦ C? SWAP RV-STAT-TBL U ♦ C! ; 
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STtfLVS displays the current status of ail rotary valves " 
whose status has changed sinse it Has last displayed. 
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0 V Status display - rotary valve updates - basics 
1 

2 : STRVLVS 

3 STAT-CK? 

4 IF RV-STAT-TBL 7 8 DO 

5 DUP I + C? OVER I i* * CJ = KOT 

6 IF I DISP-RV I UPB-RV-STST THEM 

7 2. +LSOP OROP 

8 THEN ; 
9 

10 
11 
12 
13 
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1 
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3 
4 
S 
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7 
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12 
13 
14 
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OlSP-flXSTATE displays ths current on/off status of the titer. 
DrSP-KXTIHE displays the current duration setting of the 

OISP-ttXPKR displays the current poner setting of the aixer. 

0ISP-«XOUTY displays the current duty cycle setting of the" 
tixer. 



& \ Status display - aixer status updating - display routines 

1 : DISP-KXSTATE ( on/off - ) 13 12 SCTA8 

2 IF C HEX ] F86 STAT-ATTR ! r OS 1 COURT HER* 

3 700 STAT-ATTR ! C OECIMAL'l 

4 ELSE I" OFF* COUNT >TEn?» THEN ' ; 
5 

6 : DISP-KXTIHE ( n - ) 

7 15 13 SCTAS 0 (I I I I 1} >TERH j 
8 

9 : DISP-«XPHR ( n - ) 16 13 SCTAB C HEX 3 

Ifl ee.06 CASE IF r 1/4" ELSE BCGi CASE IF $■ 1/2*. 

11 ELSE 8106 CASE IF V 3/4' ELSE &161 CASE IF V FUL" . 

12 THEN THEM THEN THEN COUNT >TEKH I DECIMAL ] ; 
13 

14 : DISP-KXQUTY ( n - ) 

15 17 14 SCTAB 6 (H I {} >TERM ; 
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Ail of the following words display their information only 
if this infortation has been codified since it was 
last displayed. 

KX-STATE7 for the sixer's current on/off setting, 

ISX-TWE? for the lixer's current Use setting. 

KX-PWH? for the mixer's current poner setting. " 

HX-OUTY? for the aixer's current duty cycle setting. 

473 

STKUER displays any eixer settings that «ay have chanoed 
since they were last displayed. 



151 

8 \ Status display - lixer status updating - status checks 

1 : HX-STATE: KXBUSY 3 OUP 0LDHX8USY* = HOT 

2 IF OUP DISP-KXSTATE OLDilXBUSY ! 

3 aSc DROP THEN ; 
t 

5 : I1X-TIHE? . IfXTIKE * DUP OLDHXTIHE ? * KOT 

6 IF OUP DISP-KXTIHE GLBHXTWE ! 

7 'ELSE DROP THEN ; 
8 

9 : KX-PWR? HXPffi 9 OUP GLOKXPUR 3 = NOT 

10 IF DUP DISP-KXPHR OUnXPVR ! 

11 aSE DROP THEH ; 
12 

13 : HX-DUTY? KXOUTY 3 DUP OLDKXDUTY t = KOT 

14 IF DUP DISP-KXDUTY OLDKXDUTY ! 

15 ELSE DROP THEH ; 
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8 \ Status display - iixer status updating • top level 
1 

2 : STKIXER ( - ) 

3 STAT-OH? 

4 IF HX-STATE? KX-TIKE? MX-PKR? KX-OUTY? 

5 THEN ; 
t> 

7 

8 

? 
18 
II 
12 
13 
14 
15 
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DISP-PSTATE displays the current on/off status of the putp. ' 

01SP-PV0L displays the current volute setting of the putp. 

OISP-PRATE displays the current putping rate setting of the 
putp. 

DISP-PDIR displays the current direction setting of the puip. 



8 \ Status display - puip status updating - display routines 

1 : DISP-PSTATE ( on/off - I h 12 SCTAB 

2 IF C HEX 1.F0B STAT-ATTR ! I" ON * COUNT >TERH 

3 780 STAT-ATTR ! ( DECIMAL ] 

< ELSE V OFF" COUHT ;TERfi THEN * ; 
3 

6 : 0ISP-PV0L. ( n - ) 

7 8 13 SCTAB MM I t I) >TERH ; 
8 

9 : DISP-PRATE ( n - I 

18 7 13 SCTAB 8 (I I t t 1} >TERK ; 
11 

12 : DISP-PDIR < for/rev - ) 

13 18 13 SCTAB 

14 IF V FOR* COUNT /TERR 

15 ELSE V REV 1 COUNT >TER« THEM ; 
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All of the fallowing words display their infortation only 
if this infortation has been todified since it was 
last displayed. 

PUKP-STATE? for the puep's current on/off setting. 

PUKP-VGL7 for the pufp's current volute setting. 

PUKP-RATE? for the puip's current putping rate setting. 

PUKP-DIR? for the puap's current direction setting. 
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8 \ Status display - puip status updating - status checks 

1 : PUKP-STATE? PBUSY 3 OUP 0L0PBUSY .3 = NOT 

2 IF DUP DISP-PSTATE OUJPBUSY ! 

3 ELSE DROP THEN j 
4 

5 : PUHP-VCL? PVOL 3 DUP 0LDPVOL 3 = NOT 

6 ■ IF DUP Q1SP-PVOL OLDPVOL ! 

7 ELSE DROP THEN j 
8 

9 : PUKP-fiATE? PRATE 3 DUP OuDPRATE 3 = HOT 
18 IF DUP DISP-PRATE OLE-PRATE ! 

11 ELSE DROP THEN ; 
12 

13 : PUMP-01R? PDIR 3 DUP OLDPDIR 3 * NOT 
K IF DUP DISP-PDIR OLDPDIR ! 
15 ELSE DROP THEN ; 
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PTBI(yn „ . 8 \ Status display - putp status uodatino - too level 

STPUK? display, any put? settings that lay have changed 1 9 P 

since they Here last displayed. ' 2 : STPUh? ( - I 



3 STAT-ON? 

4 IF PUKP-STATE? PUMP-VOL? PUttP-RATE? PUtt?-OIR? 

5 THEN ; 

6 • 
7 

8 

9 
18 
11 
12 
13 
14 
IS 
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D15P-PJ1SS gets a string address and a flag that indicates 
whether this string is a *etnod tessage string (1) or a 
function iessage string (8), It then places this string 
is th» ac-propriate screen position. U the string 
pointer is 6, then then appropriate sessage area on the 
screen is cleared. 



B \ Status display - prograiable aessages - display routine 



i 
8 
9 
16 
11 
12 
13 
14 
15 



DISP-PfISS ( str-iddr ithd/fur.c - ) 

IF 2 9 SCTAB 60 

ELSE 4 4 SCTAB 2B 
THEN SKAP ?0UP 

IF C$NT>TERJ1 

ELSE SP)TERH 
THEN : 



478 

STKPKSB updates the tethod prograwable sessage on the screen 
if it has been changed since last displayed. 

STFPM3G updates the function prograstahle isssage on the screen 
if it has been changed since last displayed. 
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B \ Status display - progratahle usages - top level 
1 

2 : STMPHSB ( - ) 

3 HPHSS 3 DUP QLDHPKSS ? = NOT 

4 IF DUP I DISP-PKSS 0LBHPKS6 ! 

5 ELSE DROP 

6 TKEM ; 
7 

B : STFPKSB ( - ) 
9 FPKS3 5 DUP OLDFPKSB 3 = KOT 
IB IF DUP B BISP-PKSS OLSFPKSE ! 

11 ELSE DROP 

12 TKEH ; 
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isa 



. B \ Status display - prograsable eessaoes - top level 
STPKSG updates status screen pragrasia&ls sessages nhenever 1 

they change. 2 : STFKSB ( - ) 

3 STAT-ON? 
.4 IF STSPMS6 STFPKSB 
5 THEN : 



10 
11 
12 
13 
H 
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BRDfi-PIECE defines self eiiting constats for sending border' 
characters to the screen. - 

AU border pieces, except for the horizontal piece, are 
turned using ERDR-PIECE. The pieces are: 
TL for top left, TC for top center, etc... 



8AR-3TF: is a string of horizontal characters used for drawi 
a horizontal bar. 



ng 



0 \ Device status - background - basic tools 

1 : BROH-f IECE 

2 CREATE , ( c - ) 

3 DOES) 3 EMIT ; 

4 218 BRDR-P1ECE TL 194 BRDR-P1ECE TC 191 BRDR-PIECE TR 

5 179 6RDF.-PIECE VT 

6 192 KDR-PIECE BL 193 BRM-FIBX BC 217 BRDR-PIECE BR 
7 

8 CREATE BAR-S7R 28 ALLOT 

9 : HAJCE-STRINS ( - ) 
13 BAR-STR 28 8 DO 

11 196 OVER C! 1* 

12 LOOP DROP j 

13 KAKE-STRIN6 FORGET MAKE-STRINS 
14 

15 
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0R3AR draws a horizontal bar of n characters at the current 
cursor position, 

DRTL and DRTR draw top left and top right sections o* a box 
respectively. 

WW and 0R3TX draw a complete top or bottoi section for a 
. box. 

DR2SD draws the two sides of a box on one line. 

DR3S0 is the saae as 0R2SD, but is used for bores that have 
a vertical center divider. 



1 
2 
3 
4 
5 
b 
7 
8 
9 
18 
11 
12 
13 
14 
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\ Device status - background - draxino sections 
: DRBAR ( n - ) BAR-STR SWAP TYPE ] 

: DRTL ( n - ) TL 1- DRBAR ; 
: DRTR ( o - 1 . I- DRBAR TR ; 

: DRTQP ( n - ) TL 2- DEBAR TR ; 
: DRBTK ( n - ) BL 2- DRBAR BR ; 

: DR2SD ( y x n - ) 

I- >R 2DUP TAB VT 

R> 4 TAB VT j 
: DR3SD ( y x n - ) 

1- >R 20UP TAB VT 

1 ♦ 2DUP TAB VT 

R> ♦ TAB VT ; 
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PSWMIX-BCX draws a pu«p or iixer box at the location 
specified on the stack. 

PtIKP-BOX draws a puip box at the appropriate location, and 
places all the reouired labels and titles in and around 
it. 

HIXER-BOX draws a iixer box at the appropriate location, 
and places all the required labels and titles in and 
around it. 



8 \ Device status - background - PU«P and MIXER boxes 



1 
2 
3 
4 
5 
6 

* 7 

8 

9 
18 
11 
12 : 
13 
14 
15 



PIJ/MX-BOX ( top left - > 
2DUP TAB 17 DRTOP 
OVER !♦ DUP 3 ♦ SWAP DO 

I 2 Pitt 17 DR2SD 
LOOP 

SWAP 4 ♦ SWAP TAB 17 DRBTH ; 
PUKP-BOI 

4 3 TAB .■ PU«P* 5 1 PU/KII-BOX 



h 2 TAB VOLUME:' 
B 2 TAB .■ DIRECTION: 
WIXER-BOX 
11 3 TAB 
13 2 TAB 



7 2 TAB FLOW RATE: • 



15 2 TAB I OUTY: - 



MIXER' 12 i PU/IUX-BOl 
DURATION: " 14 2 TAB rCKEft: 



45<b 
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GV-BOX draws a single rotary valve box at the location 
requested on the stack, and labels it with the given 
nuaber (n) on the stack* 

RV-SQSES draws all four rotary valve boxes and labels 
the* apropriately. 



5 
6 
7 
6 
9 
18 
11 
12 
13 
14 
15 



\ Device status - background - ROTARY VALVE boxes 



RV-BQX ( top left n - ) 
>R 2DU? TAB 

6 ORTL 35 EfllT R> 48 * KIT 
SKAP If 2DUP SNAP 15 DR2S0 
li SKAP TAB 15 ORBTK ; 

RV-BOXES ( - ) 
4 23 TAB ROTARY VALVES' 
19 2 4 6 DO 

3 ♦ 2DUP SSAP I !♦ RV-BOX 
LOOP 20RGP : 



7 DRTR 
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CD-BOX draHS a contact device box with ail its labels and 
titles. 
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G \ Device status - background - CONTACT DEVICES box 
1 

2 : CD-BOX ( - ) 

3 2 48 TAB CONTACT CLOSURES' 

4 3 35 2DUF TAB 

5 7 DRTL FUNCTION* 6 DRBAR TC 6 DREAR FIWCTIOH' 7 DRTR 
SKAP 12 8 DO 

H 2BUP SKAP 22 DR3SD . 
LOOP 

1+ SWAP TAB BL 2S DRBAR BC 28 DRBAR BR ? 



6 
7 
S 
9 
18 
11 
12 
13 
14 
15 
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All the words in this and the following screen display thier 
respective information regardless of wether the status of 
any of thee has been aodified sinse it was last displayed. 

SHQ-RVLVS displays the current status of all rotary valves. 

SHO-KIXER displays the current status of the fixer. 

SH3-FUKP displays the current status of the putp. 
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8 \ Device status - background - updates at refresh tite 



1 
2 
3 
4 
5 
6 
7 

e 

9 ; 
10 
11 
12 
13 
14 



SHO-RVLVS ( - ) 

7 8 DO I DISP-RV 2 +L0QP ; 

SHO-KIXER ( - ) 

HXBUSY 3 DISP-KXSTATE KIT! HE 9 DISPHIXTlflE 

MXPKR 3 DISP-KXPM KXDSJTY 3 DISP-KXOUTY ; 

SHO-PUilP ( - 1 

PBUSY 3 OISP-PSTATE PVOL 3 DiSP-PVOL ' 

FRATE 3 BISP-PRATE PDIR 3 DISP-PD1R ; 



-I i> 7 

SH0-RLY5 displays the current status of all relays. 
SHO-PKSGS displays both prograwable messages, 
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0 \ Device status - background - updates at refresh Use 
1 

2 ; 3RLY-STAT { if- on/off ) 

3 8 /KOD RELAYS f C3 SWAP BITKASK9 AND ; 
4 

5 : SKO-RLYS ( - I 

6 24 6 DO 

7 1 JRLY-STAT 1 DISP-REtAY 
B LOOP ; 

9 

* IB : SHO-PrtSGS 

11 MPI1SS 9 I BISP-PKSG 

12 FFHSS ? I DISP-PHSG ; 
13 

■14 
15 
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STATUS-BSCS paints the thole status' display, and updates its 
contents to the current value of all devices and iessages. 
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0 \ Device status - background - top level 

2 : STATUS-BKG ( - ) 

3 \ Display all boxes and default test for background 

4 PUKP-BOX h*HEF:-60X 

5 RV-BOXES CD-BOX 

f> \ Refresh ail of the actual divece and tessaoe status 
7 HINBOKOFF 

* 8 SHO-RLYS SHO-RVLVS SHO-PUMP SKO-MXER SH0-PHS6S 
9 WINOQKOK ; 
IB 
(1 
12 
13 
14 
IS 
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6 

1 
2 
3 
4 
5 
6 
7 



9 
IB 
U 
12 
13 
14 
13 



8 \ Control Task • 
1 

2 181 182 THRU- \ 

3 192 193 THRU \ 

4 183 1B9-THRU \ 
3 194 LOAD \ 
6 227 LOAD \ 



7 213 LOAD 
6 225 LOAD 
9 234 LOAD 

10 237 LOAD 

11 198 LOAD 

12 EXIT 
13 

14 
15 



\ 
*\ 
\ 
\ 
\ 



- Load Block 
Basic tools 

lethod structure words 
toiuand processing' 
Break execution words 
Relay Control 
Fua3 Control 
Hamilton Valves 
Kixer Operations 
Prografifiable eessages 
Task loop, initialization 
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HTKPTR II not 0, points to «ost recent valid tethod. 
HTKitPTR is used for displaying the naie of the tethod. 

>KTHB-NAKE places the naes of the lethod in KETHODBUF. 



B 
1 
2 
3 
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\ Control Task - basics for tethods 



VARIABLE HTHPTR 
VARIABLE BTHHPTR 



\ Points to first word of lethod 
\ Points to nfa of tethod 



>HTHD-KAKE 

METHODBUF KMLLH SLAHK 
KTNHPTR 3 4 + COUNT 11 KIN 
KETHODBUF S'rfAP CfiQVE ; 
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IDLE? returns true if a utbsd is not running. 

BUSY? returns true if cycling fros running to idle. 

PAUSE? returns true if in pause state. 

RUN? returns true if running, pausing, or stepping. 

STEP? is true if in single step eode. 

RSP sends a response (a tessage pointer and a token) to a 

cowsnd frci the user task. 
ACKRSP responds with ok if cowanri Mas accepted. 
KAKRSP is an error response, string is used for error lessage. 
startrun will perfon necessary processing to start a run. 
endrun will do what is necessary to end a run. 
natready responds with not ready error. 
MTH0OK? returns true if lethod exists and no load errors. 
KTHDER?. error if the tethod is not ok. 



e 


\ Control Task - 


basics for status Checking 


1 : 


statcheck ( n — 


t) RUKJ7ATUS 3 AKO ; 


2 2 


IDLE? ( 


— t) 


IDLEB1TS statcheck NOT 


3 : 


BUSY? ( 


— t) 


BUSYBIT statcheck ; 


4 : 


PAUSE? ( 


— t) 


PAU3E3IT statcheck ; 


5 : 


RUN? ( 


— t) 


RUK3IT statcheck ; 


6 : 
7 


STEP? ( 


— t) 


STEPBIT statcheck ; 


8 \ 


: RSP ( 


ptr n — 


) FROKJXKTR0L SEKD.HS6 


9 \ 


: ACKRSP 


{ — ) 


f control ok' ACK RSP 


18 \ 


: NAKRSP 


( ptr - 


- ) NAK RSP ; 


11 : 


startrun 


. 

i 




12 : 


endrun 


( perform end run operations) ; 


13 : 


notready 


TRUE ABORT* Error: not ready!' 


14 : 


HTHDOK? 


KTHPTR a 


i 


15 : 


HTHDERR 


TRUE ABORT* Error: No Method!* : 
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C ST/smr «mr 0 «.« * */* ' 0 \ Control Task • Start/Stop. Run Control 
C.ST/STOP processes a start/stop coi.and fro* the user. • \ s C.ST/STOP ( ptr — I DROP 

2 8USY? IF ( cant start or stop when its busy) 

3 notready 

4 ELSE ' - 

5 IDLE? IF ( not running! 

6 HTHDO!'.? IF ( start a new run) 

7 \ RUMBIT RUNJTATUS ! startrur, 

8 ELSE ( southing wrong with the aethod) 

9 KTHDERR 
13 THEM 

U ELSE ( end the run) 

12 BUSY3IT RUN STATUS ! endrun 

13 THEN 

14 THEN ; 
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C PS/COST or B r«c« * t- . . 61 ContrDl Task " Pause/Continue Run control 

L.ra/uwi processes a pause/continue couand froi the user. l 2 c.PS/CQHT (ptr — I DROP 

2 BUSY? IF 

3 notready 

4 ELSE 

5 IDLE? HOT IF 

6 PAUSE? IF 

7 RUN.STATUS 3 C STEP3IT PAUSEBIT OR NEGATE h 
3 LITERAL AND RUK STATUS ! 

9 ELSE 

IB PAUSEBIT RUN STATUS ♦! 

11 THEN 

12 . THEN 

13 THEN j 
14 

IS 
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C icTirp nr 0 r,«.c , ei^i- ^ 6 x Control" Task - Single Step Run Control 
C.I-T5P processes a single step coaiar.d froi the user. l : rj 3TEP ( ptr _ , * m? 

2 BUSY? IF notready 

3 ELSE 

4 IDLE? IF 

5 HTHOOr? IF \ start a run in single step code 

6 RUHB1T STEPBIT ♦ RUN STATUS ! startrun 

7 ELSE 

8 HTHDERR THEN 

9 ELSE 

IB RUNJTATUS ? 

11 PAUSE? IF \ turn off pause to do one step. 

12 C PAUSEBIT NEGATE 1- 3 LITERAL AND 

13 THEN STEPBIT OR RUN STATUS ! 

14 THEN 

15 THEN : 
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LAST-END contains a pointer to the address of 'endaethod" 
if. the last occurance of ENS. if END is being coipiled 
for the first tite in a load, this pointer eust be 
not'. 

8HTHD initializes the control task method parameters. It 
eipties the dictionary space of the task, clears any- 
outstanding status tessages. resets LAST-END to 0. 
connects the tasks dictionary to the top of the tain 
dictionary, cieares the old aethod name. 



16 
11 
12 
13 
14 
15 



\ Method Execution - initialization 
VARIABLE LAST-END \ Points to 'endiethod* in Ust END 
CKTHD 

EMPTY 9 KTHPTR ! \ get rid of old tethod 

C flPHSG «• 0 FPttSS ! \ Clear messages 

0 LAST-END- ! \ Iintialize ENDs - 

OPERATOR CQNTEIT HIS CONTEXT 28 ttOVE \ chain vocabulary 
C KETHODBUF ! TRUE CHAH6EKETH0D ! j V dear method name 
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KETHOD Defining word, Coapiles a* new aethod and puts it's 
- starting address into HTHPTR. 

endtethod Run tite cade for END. Terminates tethod erecution. 

END Compiling Hord inserts 'eridtethcd' as end of aethod 
definition and stops compiling the method definition. Since 
methods must be able to nest, "sndaethod' lust execute^only 
once, at the end of the last method defined. The variable 
LAST-END is used to replace earlier compiled addresses of 
•endsethod' with EXIT, effectively converting all but the 
last occurance of END into noraal forth semicolons. 



C \ Hethod Execution - defining aethods 
I 
2 
3 



KETHOD 

HERE KTNhTTR ! 
: LAST 5 c CPA 



2+ RTHPTR 



a CODE endmethod BUSYEIT f RUN STATUS NOV • EXIT JNP 
7 

B : END 

9 LAST-END ; ?DU? 

IF VI EXIT 2- OVER I THEN 
HERE LAST-EKD ! 
COMPILE endaethad 



SKUOGE R) 3= STATE ! : INKED I ATE 



SIS 
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break Runtiae code for fi; Used in place of V to check for 
pause, stop, or continue cot sands froa the user task. Exits 
the coat and loop if stop. 

B; terminates a definition, causing a 'break' to process 
commands from the user task and to allow other tasks to run. 



4 
5 
* 
7 
8 
9 

ie 
11 

12 
13 
M 
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0 \ Itethod Execution - breaking execution 
1 

2 : break STEP? IF PAUSEB1T RUN STATUS ♦! THEN 

3 BEGIN PROCESSES BUSY? IF CTL LOOP THEN 
PAUSE? NOT UNTIL R> DROP EXIT ~: 



8; COMPILE break SNUDSE R> 8= STATE ! : IHHEDIATE 
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The upper port of the PIA generates the address and control ' 
(read/write), while the lower port is for data in/out. 
These constants define the I/O addresses for the 6621 PIA chio 
on the 09(9-22 AC 2 adapter card. P 

OUTOIR sets the PIA to all bits out for the given channel. 
INDIR sets the data direction to input. 



RLYSOUT outputs the data value to the PAKUZ port (8-2). 
(PAfiUX is a parallel board connected to the PIA) 
RLYSIN gets the current state of all the relays. 



\ Relay Control 
HEX 

\ direction/data 
319 CONSTANT CDA 
312 CCHSTAHT CDS 



OUTDIR 
OUTPUT 
MMR 
OUTPUT 
: RUSOUT 
DUP 48 
: RLYSIN 

COB INPUT 
DECIMAL 238 



( 



{ 



( 



control 
311 CONSTANT CTIA 
313 CONSTAT CTLB 
a — ) >R 6 I I- OUTPUT 
.34 fi> OUTPUT ; 
K ~ ) )R 111- OUTPUT 
34 R> OUTPUT j 

da — ) CTLB OUTDIR DUP CDA OUTPUT SSAP COB OUTPU 1 
CDA OUTPUT CDA OUTPUT ; 

a — ) CTLB UHR OUP CDA OUTPUT B6 ♦ CDA BbTPIP 
3 CDA OUTPUT 
21 S THRU 



\ upper parallel port 
\ lower • • 
« I OUTPUT 8FF I 1- 

8 I OUTPUT 6 I I- - 
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RLY contains the relay * after RELAY is executed 

PRT contains the PANUX port address after RELAY (8-2). 

K3K contains the bit task to isolate the relay bit. 

RLYUPDATE Given the new state (either on or off) for a relay 
reco in the current relay states for this group of 8, and 
set the ne M state for this relay. The current statue for 
for these relays js saved in RELAYS for status updating. 
Note that RELAY mst be executed before ON or OFF 

RELAY converts a relay nuiber (1 - 24) into a port i and it's 
bit position in the port. 

tUrn iu5Uthe reJa ' selected fa Y RELAY on or off. 
MITJU.YS sets all the relays to their user selected state, 
(defined by the bits in RLYDEFAULTSJ 
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B \ Relay Control 

1 VARIABLE RLY \ These 3 variables are set by RELAY 

2 VARIABLE PRT VARIABLE KSK VARIABLE SK3 
3 

4 : RLYUPDATE ( n — ) 

5 KSK 9 AND \ isolate relay state bit 

6 PRT 5 RLYSIN \ get current state 

7 K5K*3 -I XOR ANO ( retove old state ) CR \ insert new sta'e 

8 PRT 3 2 DUP RELAYS + C! ( save relav status) RLYSOUT : 

9 : RELAY ( I — J I- \ Converts 1-24 to B-23 

18 OUP 8 23 WITHIN HOT ABORT." Relay # is out of rang*' 

11 DU? RLY ! 8 /WOO PRT ! BITKASK ♦ C3 HSK ! ; 

12 : (OH) RLYOEFAULTS PRT 9 ♦ M INVERT RLYUPDATE ; 

13 : (OFF) RLYOEFAULTS PRT 3 ♦ C3 RLYUPDATE ; 

14 : INIT.RLYS 

15 CTLA OUTOIR CTLB OUTDIR 21 1 DO I RELAY (0FF1 LOOP ; 
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4 RELAY NAKED METHANOL" I 



NAitED is used to give a relay a naee 
Later, use as: KETHANOL RELAY ON 

IS.OFF is useo* to define the state of the relay when "off. 
Allows a relay to be noraally on rather than off. 
Use: 4 RELAY I IS.OFF .afces -on* the default for relay 4, 
Combine the two definitions: 3 RELAY NAKED WATER 0 IS OFF 

* aits * Oiven nuiber of lilliseconds before returning. 
Use >t in user aethods rather than FORTH's US to alio* 
recognizing the stop cotiand. Quits back to lain loop if stop 

HS is redefined to be used as a units descriptor in a letbrfd. 
Use: 5 HS DELAY or 18 SEC DELAY. 
HIN wits for several •inutes. 



8 \ Relay Control - Method words 



2 : 

3 : 
4 

5 : 
6 

7 : 
8 

? : 
18 

11 : 

12 : 

13 : 
14 

15 : 



ON ( • ) .(ON) B; 
OFF < - ) (OFF) B; 

SENSOR ( I - ) I- DUP 28 24 WHIN 
NOT ABORT* Sensor I is out of range* SNS ' ; 

(GET-SENSOR) ( - on/off ) SNS '9 8 /NOD 
RLYSIN SNAP BITKASK? AND NOT NOT ; 

SWAIT ( on/off ) BE6IN PROCESS ChUS BUSY? 

IF CTL.LOOP THEN DUP (SET-SENSOR) = UNTIL DROP h 

GET-SENSOR ( t - ) SENSOR (6ET-SENS0R) : 

ON-KAIT ( - ) 1 SNAIT ; 

OFF-MA IT ( - ) 8 SNAIT j 

UFD-SENSORS ( - ) 2 RLYSIN RELAYS 2+ C! : 
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8 \ Relay Control - Method words 
1 

2 : NAMED ( - ) CREATE RLY * C f DOES) I — I) C9 ; 

3 : IS.OFF ( t —I IF -1 ELSE 8 THEH fSSK 3 AND 

4 RLYDEFAULTS FRT 5 + OUP C3 H3K i INVERT AND SMP OR 1 

5 2 DELAY ( is — ) 

6 COUNTER + BE51N PROCESS JMS. BUSY? IF CTL LOOP THEN 

7 DUP COUNTER < UNTIL DROP : 
8 

9 

ie 
ii 

12 
13 
14 
15 



21 1 

8 
1 
2 
3 
4 
5 

7 
8 
9 

18 
11 
12 

13 '.. 

14 

15 



212 

8 

1 
2 

; 3 

4 

5 : 
& 

7 . 

8 

9 
18 
11 
12 
13 
14 
IS 
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US I 5 ! hC input/out P ut P*n «or the puap controller. 
FSTS Status port for I/O. 

' JCVROY bit in PSTS is a 8 when data is available. 

WPDY is a | when it is ok to transit to the controller. 

ct?tJ. S 4 the " is ok t0 sefld 4 > Ui P 

F.STnTUS* returns the I/O status flags. 

P KTM returns the data byte froa the controller. 
F>Tn! writes a conand byte to the controller. 
l\l?ll? U ™ true if it,s flk t0 transmit a couand. 

KKT r ! 5 true if data " aitifl * to be 

F_F:E«DY: returns true if the controller is ready. 
P.6ETBYTE Halts for a data byte and returns it. " 
PJNFLUSH reads any regaining data bytes before returning. 



0 \ Puip Control - CoMunication Words 

1 HEX 

2 3EE CONSTANT PI/0 

3 3EF CONSTAHT PSTS 



4 

S 
6 
7 
8 
? 

10 : 

11 : 

12 « 

13 : 

14 : 
15 



1 CONSTANT RCVROY 

2 CONSTANT XKTRDY 
4 CONSTANT PREADY 



PJTATU3J 
PJATA3 
P.OATA! 
P.CTS? 
P.RCVRDY? 
P.READY? 
PJETBYTE 
PJNFLUSH 
REPEAT 



f — n) PSTS INPUT ; • - 

( — n) PI/0 INPUT ; 
( n — ) PI/0 OUTPUT ; 
( — t) P .STATUS* XHTRDY ANO ; 
( — t) PJTATUSa RCVROY AND NOT j 
f — t) PJTATUS3 PREADY ANO ; 

• n) BEGIN PAUSE P.RCVRDY? UNTIL P OATM ; 
) BEGIN PAUSE P.RCVRDY? WHILE P DATA? DROP 
DECIKAL 214 218 THRU 



( - 
( — 
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.HERE 1- CONSTANT NBUF 



PHPBUF is used to build pu*p couand strings in. First byte is ' ~ Trin54lS5ion 

coun . Also contains the characters returned by the controller 2 CREATE PHPBUF 20 ALLOT 

*' Ur .;. C 1 °" and Mas S6nt « L «* toe for results. f £ T PBU^ C 

6BUr imt i ahies the PHPBUF 'HEX 
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TESTING WORD 



(I Starts formatting a double nuiber at the end'of PHPBUF. 
St2? ,Cria J tin9 ' strifl * is in WW and addr, count on stack 
Cflnverts « ^uble number to a HEX lariat text string. 

♦CJOSTR builds a puap couand string in PHPBUF giver, the address 
PChD initializes couand buffer and copies string to it. 
PPARK gets double nurter out of address and adds string to fauffr 
cnds 4 C0Mand string with a V and sends it to the putp. 
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1 \ 

2 \ 
3 

4 : 

5 : 

6 : 

7 "■ 



\ Putp - Coi&and Foreatting 
: p.cid { — an) 1 KORD. COUNT ; 
: XPUHP p_ud >PUh?. r PHPBUF COUNT TYPE \ 



<t NBUF PTR • ; ' "\ 
•>.( — » "I 2JJR0P PTR ? NBUF OVER - ; ' 
>STRNS | d — a nl SKAP OVER DABS HEX U IS 
DECIKAL 5 ' 
' 8 HEX 

? : +CK0STR (an — ) B DO DUP W +BUF* 
18 : PCHD ( a — J flBUF COUNT >CHDSTR 

11 : PPARH ( a — ) 23 >STRNS ♦CKDSTR ; . 

12 : PSEND ( — ) 3B *BUF! PHPBUF COUNT >PUh? ; 

13 DEC I HAL 
14 

15 



SI6N l> 



!♦ LOOP DROP 
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RATE Puap flow rate in counts per second 

VOL Atount to pu»p in counts 

GAIN 

ACCEL 6cr 6 I er5 fi Qn ra f g Q i p, J8p £0t5r j ft r 0un f £ / SB r/ SeC 

ZERO 
POLE 

DIRECTION contains the puap direction flag. 



0 \ Puip - Variables 
1 

2 2VARIA8LE ACCEL 

3 2VARI ABLE GAIN 

4 VARIABLE POLE 

5 2VARIA6LE ZERO 
b 2VARIA6LE RATE 
7 2VARIABLE VOL 



180008. ACCa 2! 
8. GAIN 2! 
8. POLE, 2! 
232. ZERO 2! 
2888. RATE 2! 
IMC. VGL 2! 



8 \ variable FOIR is defined in task support; 1 = forward 
ht and tlL/KIN set the flow and vcluae variables after converting 9 

16 : il ( n — J OUP PVOL ! 0 283SS I fit/ VOL 2! ; 
11 : «L cl ; 



fro* the given units to putp counts. 
FGRKARD and REVERSE set the pusp direction parameter. 



12 : al/ein ( n — ) DUP PRATE ! 8 28883 60 W RATE 2!" 

13 : KL/rtlH il/fiin ; 

.14 : FQRKARD ( n — J 1 POIR ! ; 

15 : REVERSE < n — ) 3 PDIR \ : 
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3EKDPARK yets the address and length of cotiand string, and 
address of a double variable and generates a cospiete pu«p 
ccffiand. Coasand looks like: •S?18Sa3}\ Refer to puip manual. 

These cogsands all set puap controller variables. 



SETALL sends the necessary variables to t the puap. 



8 \ Puap - Send Puip Paraieters 



SEHDPARK 

SETTLOR 

SETVGL 

SETACCEL 

SET6AIH 

SETZERO 

5ETP0LE 



( ap 

RATE 

VOL 

ACCEL 

GAIN 

ZERO 

POLE 



ac n 
V 
V 
V 

r 
v 



} 



SP' 

PR' 
AC* 
«■ 
ZR - 



r pl* 



PCKD PPARft 

SENDPASK ; 

SENDPARK j 

SEKDPARH ; 

SENDPARK ; 

SENDPARK ; 

SEKDPARN : 



PSEHO 



8 : SETALL SETFLOH SETVOL SETACCEL SETGAIK SETZERO SETPOLE 
9 

18 
11 
12 
13 
14 
IS 



TELLPKP ( ac — ) PCKD PSEHD 5 
P.ERROR? V TI* TELLPKP PHPBUF HEX HUifSER DECIMAL 1 AND 

ABORT - Puap exessive position error* \ 
PA8QRT r A3* TELLPKP f HQ' TELLPKP ; 
P.WAIT ( - I BEGIN PROCESSES BUSY? IF PA30RT THEN 
P.READY? UNTIL P ERROR? : 
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TELLPKP Sends a 2 character pucp coiaand. 
PABCRT is an emergency stop, turns the iotor off iaeediatly. 
PJAIT waits for operation coiplete, aborts if stop caaaand. 
P5TART starts a puap operation. Controls puap status flag, 
PRESET causes controller to use it's default paraaeters. 
PREVERSE pufips in reverse direction. 
PF0RWAR3 puaps in forward direction, 
POEClitAL Controller interprets nusbers in deciiai foraat. 
PKEI Controller interprets nuibers in Hex foriat (default). 
PSEP.V0 Puts controller in servoaode. 
PDIRECT10II sets the puip direction based on contents of 
DIRECTION. 

POMP sends an entire set of coitands to start up the putp 

using the current pusp paraaeters, 
ISITjnmp does the jjuap initialization. 



6 \ Puap - Puip Coaaands 



1 
2 
3 
4 
5 
6 
7 
8 
9 

18 : 
11 
12 ; 
13 
14 : 
15 



PSTART JRUE PBUSY ! f B6* TELLPKP PJfAIT FALSE PBUSY 
P.OE 1, V QE" PCKD >3TRKG ♦CKOSTR PsInD : 



PRESET 

PREVERSE 

PFORKARD 

POECIKAL 

PHEX 

PSERVO 



v Rsr 
r or- 

V DF 1 
f DC" 

v hx' 
r sv 



TELLPKP 
TELLPKP 
TELLPKP 
TELLPKP 
TELLPKP 
TELLPKP 



5. 
t 



P0IRECT10N PDIR ? IF PFORKARD ELSE PREVERSE THEN ; 
PUHP ( - ) PSERVO PHEX SETALL PDIRECTION P START 
IHITJW ( - ) PABORT PRESET P 0E : 



This code is used to manipulate the parity of characters that" 
V are send to and received fro* the Hamilton controller, the 
communication protocol for the device requires that the 
•dressing character be send as an odd parity, while al] other 
characters must be sent as even parity characters. The 
alternate way of manipulating the parity by programing the 
UART is not practical for reasons of speed and synchro- 
nization. 



8 \ Hamilton valves: basics and load block 
1 

2 VARIABLE RDPTR 

3 ■ 

4 CODE *EVEK-PAR ( c - even-parity-'c ) HEI 

5 8 POP 8 9 AND B 

6 7B ( JPO, ODD-PAR?) 

7 IF 88 IB 0 10ft 

8 THEM 8 PUSH 

9 HEZT FORTH 

IB : >0DD-PAR ( c - odd-parity-c ) 

11 >EVEN-FAR 88 XQR ; DECIMAL 

12 

13 

14 226 232 THRU \ Rest of Hacilton valve words 
15 



RBUFF is a wrap around receiving buffer, whose length may be 1 
modified through changing RBUFF-SIZE. This buffer is filled 2 
by the COLLECT loop, running under task REHOTE. 3 

RDPTR, BBPTR, and RCCUNT are used to maintain RBUFF. The 5 
first tm> are a read palter. aad a wlte pointer into the h 
buffer, and the last one is a count of characters received. 7 

8 

SBUFF is a small buffer for storing the characters that ft send ? 
to the controller. • 

11 
12 
13 
14 
IS 



S4S 
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RBUFF* is an addition ward that returns a 'wrapped around' 
result, corresponding to the size of RBUFF. 

RBUFFa gets the nth character of the most recent unread portion 
of the receive buffer. 

RBUFF-CLEAR clears the first n characters of the tost recent 
unread portion of the receive buffer. 

ECHO? returns true if exactly n characters have been received 
at the serial port. 



\ Hamilton valves: receive buffer utility words 



8 

! 

2 : RBUFF+ ( n ■ .- wrapped[n*m3 ) 

3 ♦ RBUFF-SIZE ROD 5 
4 

5 \ : RBUFF9 ( n - c ) 

6 \ . RDPTR 9 RBUFF* RBUFF ♦ C3 j 
7 

B : RBUFF-CLEAR ( - > 

? ¥KPTR 9 RDPTR ! 
18 8 RCOUNT ! ; 
11 

12 : ECHO? ( n - t ) 

13 RCOUNT 9 = ; 
1< 

15 



>SEHIAI sends a single character to the controller. Note 
that this send is done directly to the active serial 
port that is being used by task REMOTE for character 
collection. This is dene so that REItQTE can continue 
responding to receive interrupts without any interference. 

CGnKnnDI stores the chacaters for the cowand in SBUFF. 

HnKZLTOM sends a coecand to the controller. 



e \ Hamilton valves: contand output words 



1 
2 
3 
< 

5 
6 

.7 
6 
9 

18 
11 
12 
13 
14 
15 



n ) DUP >fi 



COMMAND! ( el c2 ... en n 
SBUFF + (- SBUFF S«Af\ OQ 

. ! C! 
-1 +LG0P fi> 5 



HAMILTON' 'i cl c2 ... cn n - ) 
COIfflAKD! SBCTR ! SBUFF SBPTR ! 

: CALLES BET RBUFF-CLEAR SEKD>SER 
SB MS CALLER RELEASE ; 
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RV-I contains the current valve nuaber ;fi '" r '-' 

2 VARIABLE RV-f 

RV-STAT-TABLE contains pairs of status variables i old and new ) 3 ', "V'T' 



\ Haailton valves: valve variables and utility wards 



the four valves 

RV-STAT returns the adress of the new status variable for the 
currently selected valve ( MM 1 

RV-DIRECTIGK takes a position nueber and returns returns a 
direction character ( ♦ or - ) for the Hatilten cocfiand 
string, the valve Hill rotate either one position counter 
clockwise or one or two positions clockwise. The first 
rotation of the valve is always clockwise. 



4 : RV-STAT ( - stat-byte-addr 1 t , y . ,.■ 

5 RV-t 9 1- 2t RV-STAT-TBL ♦ ; " 

7 HEX : RV-OIRECTIOti ( pos - direction-character J 

6 RV-STAT - 
DLT 4 * SSAP 9 = CR 

IF 2D , 
ELSE 2B 
THEM : DECIMAL 
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These are the top level cowands for the haiilton rotary valve- 
v controller. RVAVLE selects a current valve as in the phrase 
3 RVALVE. POSITION selects a valve position corresponding 
to the position nutters that appear on the top of the valve 
asseibly, and sends the valve to that position. P0R7 allows 
the user to use convention! nueoers for valve position* 
amly -1- for u Pj -2- f , r right| .3. ffir ^ ^ , Qf 
leu. The follctting are exaiples of usage: 

1 RVALVE 3 PORT = 1 RVALVE 7 POSITION 

2 RVALVE 4 PORT * 2 RVALVE 18 POSITION 



8 \ Haiilton valves: valve driving words 
1 
2 
3 
4 



: RVALVE ( valve-l - J 
RV-I ! j 

5 : POSITION ( Kaiilton-t-pos - ) 

6 [HEM 38 XTCO-PAR RV-t 3 30 

7 ; RV-0IRE2TI0R >EVEN-PAR I 38 

8 D >EVEN-PAR 5 HAMILTON 

9 R) RV-STAT C! 

IB [ DECIMAL ] 2353 MS 

11 8 ECHC? 11 ECHO? OR NOT 

12 ABORT* Haiilton Error ' Bj 
13 

14 : PORT ( nortal-l-pos - ) 

13 I- 3 t l* POSITION : 



>fl 

♦ )EVEN-PAR 
*■ >EVEH-PAR 
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INIT-HAM-COKK is called on powerup to initialize the haaiiton 
controller. 

INIT-HAnlLTON initializes cotauni cation Kith the controller 
and puts the valves into their default positions. 



232 

8 \ Haiilton valves: initialization 

1 : IHIT-HAtKOM 

2 E HEX ] 30 MUD-PAR 30 >E¥EN-PAR 0 >EVEN-PAR 

3 3 HAMILTON 

4 C DECIMAL 1 4S3 KS 3 ECHO? ? ECHO? OR NOT 

5 ABORT' Haiilton power error' 

6 C HEI ] 30 >QD0-PAR 4? >EVEH-PAR 0 >EVEK-PAR 

7 3 HAMILTON 

8 C BECIfiAL 1 25G MS 6 ECHO? NOT 

? ABORT' Haiilton init error' ; DECIMAL 

IB : INIT_HAMILTGN ( - ) 

11 508 MS IHIT-HAH-COKM 

12 5 1 DO 

13 I RVALVE RV-DEFfiULTS I i- + ?DUP 
H IF PORT 2003 MS THEN 

15 LOOP ; 
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KX-f»3B and KX-LSB contain the nuibers for the relays that 
are used to control the fixing power, 

rt\vr£t uinuta* the nudber of the relay that turns the 
iixer cn or off. 

1/4 is used to set KX-KSB to 8 and KX-LSB to 8. 
1/2 is used tc set KX-MSB to 8 and KX-LSB to I. 
3/4 is used to set KX-KSB to i and KX-LSB to 8. 
FULL is used to set HX-KS9 to 1 and KX-LSB to 1. 



8 \ Rixer operations * constants, load block 
1 
2 
3 



\ 

5 
6 
7 
B 
9 

16 
11 
12 
13 
14 



18 CONSTANT NI-KSB 
1? CONSTANT 'KX-LSB . . 
28 CONSTANT MX-RLY 

K5X 6633 • CONSTANT 1/4 

6081 CONSTANT 1/2 

6130 CONSTANT 3/4 

8181 CONSTANT FULL DECIMAL 

235 236 THRU \ Rest of aixsr operations 
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SET-PKR-8IT turns one of the power control relays on or 
off as needed. 

MIX-CYCLE turns the aixer on and off for one cosplete duty 
cycle. If the duty percentage is 183, then the eixer 
is left on. 



6 
1 
2 
3 
4 
5 
6 
7 

6 
9 
II 
II 
12 
13 
14 
15 
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\ Kixer operations - basics 



SET-MR-BIT ( on/off rly* - ) 
SWAP 255 AND 

IF RELAY (ON) ELSE RELAY (OFF) 



THEN 



KIX-CYCLE ( n - ) 
KXDATY 5 18 t 

KX-RLY RELAY (ON) Dli? DELAY 
10Q8 S*AP - ?DUP 

IF MX-RLY RELAY (OFF) DELAY THEN 
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XDUTY deteraines the duty cycle percentage for the aixing 
operation. 

POKER deteraines the power setting of the eixer. 

SECONDS and SECOND determine the aixer's duration of 
operation. 

BIX activates the aiier using the current paraaeters found 
in the «xer variables KXDUTY, KXPHR, and HXTIME. 



e 

i 

2 
3 

4 : 

5 

6 

7 

3 

9 
16 
11 
12 
13 
14 
15 



\ Kixer operations 
XDUTY ( n - J 
KXBUTY ! ; 

POWER i n - ) 
KXPKR ! j 



top level operations 



SECONDS 
KITIKE ! 



( n - ) 



SECOND SECONDS ; 



MIX ( - ) 
1 MXBUSY ! 

KXPKR 9 OUP >< KX-KSB SET-PKR-BIT KX-LSB SET-PKR-BIT 
KXTIKE 3 e DO MIX-CYCLE LOOP KX-KLY RELAY (OFF! 
KX-HSB RELAY <OFFJ KX-LSB RELAY (OFF) 
9 KXBUSY ! 8; 
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Read the year and set the FORTH svstei year. 
Read the tite and set FORTH 1 s clock. 

The KONTHS array is used to convert the current day and ionth 
into FORTH' s internal date format. Refer to screens 30 *and 
31 in the Level 3 listing. 

SETDATE oets the current day and ionth froi the battery dock 
on the AST card and sets FORTH* s date. 

Initialize FORTH' s day, date, and tiae froo the AST 

card clock. 
Saiple prep 



8 \ Clock - Set FORTH' S tiae and date 

1 

2 

3 : SETYEAR YR? 1932 ♦ A.O. ; 

4 : SETTlnE HR? 1B0 I UN* ♦ 0 PST ; 

6 CREATE MONTHS 

7 0 , 0 ( 31 , 39 , 93 , 323 , 151 , 181 , 212 , 243 , 273 . 

8 304 , 334 , 367 , 
9 

18 : SETDATE 0Y3 KC? 21 KOHTHS ♦ 5 58 OVER < LEAP ? I ♦ . 

11 JANO ? 4 ♦ HON ; 

12 

13 SETYEAR SETTIHE SETDATE 

14 FORSET CLK? 
IS 
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These definitions are for the AST SixPac Pius card with the 

Ricoh RP5C15 clock chip. 
CLK? reads a value froa one of the AST card clock registers. 



0 \ AST Card Clock Calender words - For RICOH RP5C1S chip 

1 \ ( for newer AST Six Pack Plus cards) 

2 HEX 







3 : 


CLK? ( a - 


- n ) 


2C3 OUTPUT i 






4 DECIMAL 






Yesr 




c . 
«i • 


2DGTS ( a 


— r. ) 


uur Lunt to 


Month 




6 : 


yr? < — 


yr l 


12 25GTS ; 


Cay 




7 : 


MO? ( — 


to ) 


10 2SGTS ; 


Hour 




8 : 


0Y9 ( — 


dy ) 


8 2DGTS ; 


Minute 




9 : 


HR? ( — 


hr ) 


5 23GTS ; 


Second froa the Battery clock. 




16 : 


MH? ( — 


in ) 


3 20BT5 ; 






11 : 


sea ( — 


sc ) 


1 2D6TS ; 






12 E 


XIT 










13 












14 












15 
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\ AST Card Clock Calender nords - For Hatior.al KKSB167A chi 
\ (for older AST Six Pack Plus cards) 

HEX 

: CLK? ( a — n 1 2C8 4 [k?UT • 
DECIMAL 
: CLVAL ( a 



: YR? 

: no; 

: DY? 

: HR? 

: MM? 

: SC? 
EXIT 



n) CLK? OOP U / 18 I SNAP 15 AND 4 ; 

( — 'yr ) 10 CLK? 68 4 ; 

( — so ) 7 CLVAL ; 

( — dy ) 6 CLVAL ; 

( — hr ) 4 CLVAL ; 

( — an ) 3 CLVAL ? 

( — sc ) 2 CLVAL ; 
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•SUIT is a user variable in each task that contains the address 8 

to sectute Hhen an error occurs. 1 

The error handler for each task should process the error if 2 

possible: saving state intonation for debugging (like SCR, 3 

>IN, etc!; and re-enter the rein task loop to allow recovery. 4 

This Mill prevent systes lockups on errors. 5 

Initialized to GUtT for ncn (norial FGRTK systei error response) 6 

ERRORS is executed when ABORT is called. It gets the error 7 

routine address for this task and starts interpreting it. 8 

rtadify the ABORT routine in FGRTH to vector to ERRORS instead of 9 

QUIT. 10 

uimmmmmmmmmnimuummmmmmusm u 

SYSTEM NOTE: If the FORTH systei is ever recoipiled. the ABORT 12 

routine itself should be codified to Upleient the above 13 

behaviour. It is not good practice to poke in code changes 14 

after the systei is up and running. ' 15 



\ Systei Error Handling 

f QUIT 'QUIT ! 

: QUITS 'QUIT 5 >R ? 

» QUITS 9 ABORT 7 ♦ ! 



' (abort*) "ABORT ! 

; ABORTS "'ABORT 5E1ECUTE } 

' ABORTS 2- ' abort* 2* ! 

CODE RESET U R MOV \ clear the return stack 
Su U) S flOV \ clear paraieter stack 
8 0 SUB 8 PUSH \ put a safety 8 or, stack 
HEXT 

\ copy of definition in screen 98 level 4 listing. 
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8 
1 
2 
3 
4 
5 
b 
1 
8 
9 
18 
tl 
12 
13 
14 
15 
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These definitions are the sate as screen 77 in FORTH level "• 
3 listing, except that FUPDATE is used in place of UPDATE 
Nhen writing to a disk file. 



6 \ File Editor - Line I character operations 

1 67 :K LHOLD CLAD 'LIKE C/L CNOVE ; 

2 : (OUPL) LIMES ?0UP IF 8 DO HI- WdJN LOOP THEM ; 

3 M ;K IKSL (OUPL) LINE CLKL .BLOCK.; 

4 63 :K 0UPL (DUPO .BLOC*"; . 

5 64 :K SPLIT LIMES IF (DUPD -LIKE CLAD C/L ♦ 

6 COL BLANK. LINE +L .BLOCK Lt ! THEN ; 

7 62 :K XL LHOLD LIKES ?BUP IF 0 DO LINE I ♦ I* HUP LOOP 

8 THEN' L/S LAD C/L BLANK .BLOCK ; 

9 83 :K XC <AD0R DUP DUP 14 SWAP COLS I- WOVE 

10 BL SWAP COLS I- ♦ C! FUPOATE .LIKE ; 

11 : INSERT ( c) DUP EMIT NODE C3 IF COLS I- IF <A0DR DUP 

12 DUP 14 COLS 1- <CflOVE C! *C FUPDATE .LIKE ELSE <AOE C! 

13 THEN ELSE <ADDR C! *C THEN FUPSATE ; 

14 : xOELETE -C 60 K09E W IF IC ELSE BL <AODR C! FUPOATE 

15 SPACE THEN ; 



340 

EOL and PUT are the sase except for FUPDATE. 

.NODE displays the current editing eode on the bottoi line" of 
editing NindoM 

IDISPLY types the contents of the nth screen of the current file 

XEDIT is called Hher. leaving the editor to close the file, put 
the Hind oh back in order, and rebuild the current screen. 



19 

6 \ File Editor - Display function keys 

1 79 :K EOL CLAD C/L -TRAILING OUP IF 14 THEN 63 KIN Ct ! 

2 DROP ; 

3 : ?VISIBLE ( c - c t) DUP 31 127 BITKIK $ 

4 63 :K PUT C/L 6 DO 'LINE I ♦ ft 7VISI3LE NOT IF 

5 2fi> 2DR3P BELL EXIT THEM 013? LOG? 

6 KQfiE CJ I!U? IF (DUPL) THEN ' 'LINE CLAD C/L CK3YE FUPDATE 

7 IF .BLOCK ELSE 6 CI ! 60. .LIKE THEN ; 
8 

9 : .NODE 17 38 TAB NODE tt IF Insert ■ 
IB ELSE Replace' THEK ; 
U 

12 : IDISPLY ( scrl) PAGE (FLISTI .NODE ; 
13 

14 : XEDIT FCLOSE WORK HIMDQH 

15 'SCREEN ? & 'SCREEN ! EXECUTE ; . 
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ESCape sets the exit flag so we'll leave the editor. 



(edit) is the editor coesand interpreting loop. It gets key 
strokes, updates the cursor position, and executes function 
keys until the exit flag is set 

>EDIT throw 2 return addresses away off the stack and reenters 
the editing loop. 



\ File Editor - Cowand Interpreter 
: CASE < n n - n 8, t) OVER - IF 8 ELSE DROP 1 THEN 
INSERTION ( c) 7VISIBLE IF INSERT 

ELSE 13 CASE IF ( Return) 8 CI ! *L 
aSE 12 CASE IF 
ELSE 89 CASE IF 
ELSE 153 CASE IF 
aSE 14 CASE IF 
THEN THEN THEN THEN THEN THEN * 
KEY ( - k, k -l> KEY 'KEY W 53 > IF I Function key) 
DROP 'KEY C9 -I THEN ; 
(edit) ( blkl) HOKE IDISPLY BE61N 60 
♦CURSOR FKEY -CURSOR DUP 1+ IF INSERTION 
ELSE DROP FUNCTIGK THEN EDXIT 9 UNTIL ; 
14 CODE >EDIT ' (edit) 2* • I flOV 4 I R ADO NEXT 
15 



3 
1 
2 
3 
4 
5 
6 
7 

a 
9 

16 
11 
12 
13 



( Bksp) x DELETE 

( Tab) K *C ♦€ 

( ESC) TRUE EDXIT 

( PrtSc) CHOICE 
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8 \ file Editor - Function keys 

1 ( Key 5?) ' FLUSH 59 'FUNCTION ! 

2 . 

cant do an e*pty-buffers without loosing directory and BAT 3 \ 66 sK RECALL EKPTY-3UFFERS 8 pc, .>ED!T ; 

ir.torfiation too. Solution is to Copy the existing file 4 73 :K UP 1 pg >EDIT ; 

to a 'xxxx.BAK' lile, edit that one, and just delete it if 5 81 :K DOWN -1 pg >EDIT y 

the user Hants to forget any changes. 6 \ 76 :K *G . (81 >EDIT j 

40. (the plus function key) is supposed to flip between a screen 7 82 :K /KODE - BODE C? 8= RODE C! .KQOE ; 

and it's shadow or documentation block. In FORTH, the * 8 

convention is to have docuoentation blocks a fixed offset 9 ? 14 KEYS ♦ C! 

above source blocks (typically 1 drive higher so that source 10 

and docuoentation are on seperate drives)] Hoh should 11 

docuisntatian blocks be handled? Perhaps a different file type 12 

where the source code would be in 'xyzabc.txf and it's shadow 13 

would be in •xyzabc«doc\ This eeans we need eultiple open • 14 

files, which the file systea doesnt currently support. 15 
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EEKEKU displays the editing coisands in the selection window. 



FEDIT is the tain entry point to the editor. It trys to open 
an existing file and if it is not found, it prospts before 
creating a new file. 



e 

i 

2 
3 
4 
5 
6 
7 
B 
9 
IB 
11 
12 
13 
14 
15 



\ File Editor - Kenu Display, Entry point 
EC MENU ( - ) 
SELECTION BOX (PAGE) 

COMfinNDS: : ■ 

Fl: FLUSH F2: RECALL F3: SPREAD ■ 

F4: DEL LIKF5: DU? L1KF6: SPLIT F7: DEL ECLF9: Da EDS - 

F9: HOLD FiS: PUT ESC: EXIT •• ; 

(FEDIT) STAT-OFF KENU-OFF 
FALSE EDIIT ! EDKEKU EDXTIKS WIKDQK 8 (edit) IEDIT : 



FEDIT OPEN? f Enter Fiienase: ■ FILENAME IF U 
IF P Create a new file? (Y/fO* YES? KOI 
IF DROP EXIT THEN FCREATE IF 

P Create Error- .EFJHJR EXIT THEK 
ELSE DRQP THEK (FEDIT) THEK ; 



OUP FOPEH 
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4 
5 
6 
7 
8 
9 

18 
11 
12 
13 
14 
15- 



SET-MFK36 sets .ethod .esssge to the address of in line 
\ string. 

&' FfiilG iris function aessaje to the id-dress ot in line 
string. 

i BMT-STR compiles a sharp brakst deiiiits-J Kstr.,.)j 
string froi the input streai into the dictionary. 



8 \ Progranahle tethod and function eessages - basics 

2 : SET-MPMSG ( - ) 

3 1 m HPM5G ! ? 
4 

5 : SET-FPHS6 ( - ) 

6 I m FPU 56 ! ; 
7 

8 i PRKT-STR 

* -1 MM *! 63 MRD DROP 62 STRING ; 
18 
11 

12 238 LOAD \ Message turnoff coscands 

13 

14 

IS 
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MESSAGE compiles a iessage and flakes it the aethod 
execution tiae. 

MESSAGE-OFF turns off the aethod aessage, if any. 

FKE3SAGE compiles a aessage and takes it the function 
at execution tiie. 

FMES3AGE-0FF turns off the function eessage, if any. 



aessage at 



aessage 



\ Progrewable eethod and function eessages - top level 

: MESSAGE ( - ) 

COMPILE SET-MPMSG BRKT-STR ; IMMEDIATE 

: MESSAGE-OFF { - ) 
8 MPMSG ! ; 

: FHESSA5E ( - ) 

COMPILE SET-fPMSS BRKT-STR ; IMMEDIATE 

: FMESSASE-flFF ( - ) 
8 FPMSG ! ; 
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RV-NAKE-TBL is a table of pointers to strings that contain 
tiie fiaaes {or the rotary vatic positions. 

CD -HAKE- TBI is a table of pointers to strings that contain 
the naaes for the contact device positions. 

These load CGftftsnds compile new string and put their 
addresses in the given table. 



C \ Systei configuration tables and load screen 
1 

2 241 LOAD \ String table generation words 
3 

4 CREATE RV-HAME-TBL 32 ALLOT - • 

5 CREATE CD-KnJIE-TBL 96 ALLOT 

6 / 

7 RV-KAKE-TBL • 333 LOAD \ Rotary valve nases 

6 CD-NARE-T8L * 361 LOAD \ Contact device functions l-ir* * 
9 CB-NM1E-TBL 48 ♦ 3S2 LOAD \ Contact device functions 13-24 ? 

1C 

II 

12 

13 

14 

15 
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I3-PTR is a pointer to the location at which we coapile the 
"string's address. It serves as an index into a table. ' 

IS-LEH is the required length of the strings that ere being 
compiled. 

COKFISUHE and CHARACTER set IS-PTR and IS-LEii in a clean 
syntax. See the last note in this block. 

C3TRING cospiles a string and places its address into a table, 
advancing 1S-PTR for the next string. 

STRINGS coipiles the required nuibsr of strings. 

The syntax of usage is: CONFIGURE n i CHARACTER STRINGS. The 
adress of the table is given on the stack before starting. 



0 \ Configuration tables - creating string tables 

1 VARIABLE IS-PTR 

2 VARIABLE IS-LEH 
3 

4 : CONFIGURE 

5 IS-PTR ! ; 

6 : CHARACTER 

7 IS-LEH ! ; 
8 

9 : CSTR1HB 

IB -2 ALLOT -1 >IN ♦! 6B KORD DROP 

11 HERE 2* IS-LEH ? BLANK 62 WORD 

12 IS-LEH J OVER C! IS-PTR 3 ! 2 IS-PTR ♦! 

13 IS-LEH 3 1+ 2+ ALLOT ; 

14 : STRIH6S 

15 0 DO CSTRIHB LOOP ; 



563 



242 



6 
I 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 



300 



622 



623 



8 \ Configuration screen for rotary valve nates 

1 CONFIGURE 16 13 CHARACTER STRINGS 

2 

3 vaivel ! Port II p or t 12 

5 1 • < F »n Sprayer > < To Kaste > 

6 2 1 m < Solvent !2 > (To LC loop > 

7 3 i • < > < , 

8 4 i < > < > 
? 

N wlvel ! Port 13 Port M 

U j 



12 1 1 < Ssiple Line > < Sample Loop ) 

13 2 1 < U Bypass > < solvent II > 

14 3 i < > < > 

15 « 1 < > < > 
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0 \ Configuration screen for contact device functions 1 thru P 

1 CONFIGURE 24 20 CHARACTER STRIN6S 

2 cdl : OFF function o« function 

3 ! 

I 1 1 <l:Saiple Loop Bypass) <U Saaple Loop > 

5 2 ! <2:Sasple Loop Bypass) <2: Satole Loop > 

6 3 ! <3: Manifold - Cup ) <3: Cup To Haste > 

7 4 ! <4: Puip - fcnifold ) <4: Gas To Hanifold > 

8 S i < > < y 



» J . <6: Fill Gas Reserve > <i;Eipty Gas Reserve > 

10 7 ! <7:Pres5urize Sprayer) <7: Spray 

U 8 ! < > < 

12 ?! < > < 

13 10 J < > < 

14 U ! <il: Vent Cup ) <n : Pressurize Cup ) 

15 12 I < > < > 
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0 \ Configuration screen for contact device functions 13 thru 24 
^ CONFIGURE 24 28 CHARACTER STRINGS 
2 cdl I OFF function (W function 

3 !- 

4 13 

5 14 

6 15 

7 16 
fl 17 
9 18 

10 1? i 
U 20 

12 21 ! 

13 22 ! 

14 23 ! 

15 24 ! 



< 




> 


< 




< 




> 


< 




< 




) 


< 




< 




) 


<16:LC Fill Position > 


< 




> 


<17: 


LC Inject > 


< 




) 


< 




< 




> 


< 




< 




> 


< 




< 




) 


< 




< 


OFF 


) 


< 


ON > 


< 


OFF 


> 


< 


ON > 


< 


OFF 


> 


< 


ON > 
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8 «« HELP FOR STATUS SCREEN »» 
i 

2 This is the Systei Status Screen. The display shews the 

3 current state of each systei eleient. 

a 

5 Fi is the Start/Stop key. Use it to control aethod operation. 

6 F2 is the Pause/Continue key. Use it to suspend a run. 

7 F3 allows a direct conand to be entered (for debugging only). 
6 F4 allows exiting back to the FORTH systei. 

9 HUM LOCK causes the current screen display to be copied to the 
18 printer. 

11 <- ->. Keys iove the coieand selector across the ienu, 

12 ♦ Causes the currently selected coeaand to be executed 

13 - or ESC Exits the current Screen. 

14 Type the first character of the cotiand nate to execute it 

15 C Hit Any Key to Exit the Help Screens 3 
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8 




i This is second status help screen. 




2 
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1 This is third status help screen. 

2 

3 

4 
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0 

1 This is fourth status help screen. 

2 
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4 
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h 

1 

8 

9 
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15 
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J «« KELP FOR FILER SCREEN »» 



2 The filer provides sose utility couands for aanipuUting disk 

3 files. Files can be copied, deleted and rena«d, and a new disk 

4 can be formatted. 

5 The directory listing of the disk is displayed. If there are 

6 tore files than can be shown on the screen at one tiie, you can 

7 use the page up or page down keys to see thei. 
6 

9 
Lfl 
H 
12 
13 
14 

15 C Hit Any Key to Exit the Help Screens 1 



6 

1 
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8 «« HELP FOR PRINTER SCREEH »» 

1 

2 The printer utility allows files and disk directories to be 

3 sent to the printer. 
4 

5 
6 

7 ' 

8 

9 
10 
11 
12 
13 
14 

15 C Hit Any Key to Exit the Help Screens 3 
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( Sdiple Prep Task definitions J 

33B TERM HAL PSTATUS 
PSTATUS CONSTRUCT 

2«68 TERMINAL COfiTRQL 
'CONTROL CONSTRUCT 

« HALT ACTIVATE STOP ; 

\ 6387 PSTATUS 'TYPE HIS ! 
V 'TAB 3 PSTATUS 'TAB HIS ! 
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